CheckBox (Onay Kutusu) Şifreleme

[Leturc]

Arkadaşlar Merhaba,

Başlıkta da belirttiğim gibi CheckBox değerinin değiştirilmesi için söz konusu kutuyu şifrelemek istiyorum. Bunun için çalışma sayfasını şifrelemeyi denedim ancak bu sefer de çalışması gereken makrolarım çalışmıyor şifreli olduğu için. acaba elinizde :

Checkbox'a tılkayınca önce şifre soran sonra işaretleyen bir makro var mıdır?

Teşekkürler

 

[hamitcan]

Private Sub CheckBox1_Click()
    a = InputBox("Şifreyi Girin")
    If a <> 123 Then
        MsgBox "Şifre doğru değil"
        CheckBox1.Value = False
        Exit Sub
    End If
End Sub

 

[Leturc]

Teşekkür ederim cevanız için ama çalıştırmadım

EK'te yer alan dosyamı inceleyebilir misiniz?

Checkbox'lar 1. sayfanın en altındadır.

Teşekkürler

 

[hamitcan]

Kodlar aşağıdaki gibi olmalı.

Private Sub CheckBox1_Click()
    a = InputBox("Enter Password")
    If a <> "Jennyfer" Then
        MsgBox "Wrong Password"
        CheckBox1.Value = False
        Exit Sub
    End If
End Sub
Private Sub CheckBox2_Click()
    a = InputBox("Enter Password")
    If a <> "Jennyfer" Then
        MsgBox "Wrong Password"
        CheckBox2.Value = False
        Exit Sub
    End If
End Sub

 

[Leturc]

Kodlar aşağıdaki gibi olmalı.

Private Sub CheckBox1_Click()
    a = InputBox("Enter Password")
    If a <> "Jennyfer" Then
        MsgBox "Wrong Password"
        CheckBox1.Value = False
        Exit Sub
    End If
End Sub
Private Sub CheckBox2_Click()
    a = InputBox("Enter Password")
    If a <> "Jennyfer" Then
        MsgBox "Wrong Password"
        CheckBox2.Value = False
        Exit Sub
    End If
End Sub

Çooook teşekkür ederim Hamit hocam. Ellerinize sağlık...