sayfanın veri alımına açık ama yazdığımız bilginin silinemez olması için

[kemrahcan]

ekte gönderdiğim basit dosya içine bilgi girilebilsin ama sayfa save lendiğinden itibaren girilen bilgi silinemesin silmek için parola gereksin istiyorum.çok uğraştım ama beceremedim siz üstadların yardımını bekliyorum açıklamayı aynı zamanda dosya içinede yazdım.

 

[Ferhat Pazarçevirdi]

Ekteki örneği inceleyiniz.

ThisWorkbook modülüne aşağıdaki kodlar yazıldı. Bu kodlar, kitap kaydedildiği anda, sayfayı korumaya alır

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With Sheets("Sayfa1")
        .Unprotect "1234"
        .Range("B2:F9").Locked = True
        .Protect "1234"
    End With
End Sub

"Sayfa1" modülüne, sayfa üzerindeki butona basıldığına çalışması için, aşağıdaki kodlar yazıldı.

Private Sub CommandButton1_Click()
    
    Dim sifre As String
    
    On Error Resume Next
fer:
    sifre = InputBox("Lütfen şifre giriniz :", "ŞİFRE")
    
    If StrPtr(sifre) = 0 Then: Exit Sub
    
    Sheets("sayfa1").Unprotect sifre
    
    If Err.Number > 0 Then
        MsgBox "Şifreniz yanlış, lütfen tekrar deneyiniz", vbCritical, "UYARI"
        GoTo fer:
    End If
    
    On Error GoTo 0
End Sub

 

[kemrahcan]

teşekkür ederim

biraz uğraşayım , yardımların için teşekkürler üstad