Açılışta Üç Kere Şifre Hakkı Verme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
Dosya açıldığında otomatik olarak karşınıza bir InputBox nesnesi çıkmaktadır. Dosyanın açılabilmesi için, doğru şifreyi yazmanız gerekir. Eğer yanlış yazdıysanız, toplam 3 kere size doğru şifreyi yazma hakkı tanımaktadır. 3. denemede de doğru şifre yazılmamışsa, dosya kaydedilmeden kapanacaktır.
Faydalanılması temennisiyle.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
Hazır Kod
VBA:
Sub auto_open()
Static XDSayac As Integer
Do
If XDSayac = 3 Then
ThisWorkbook.Close False
Else
If InputBox("Şifreyi girin") = "1" Then
GoTo devam
Else
XDSayac = XDSayac + 1
End If
End If
Loop
devam:
End SubAçıklama
Dosya açıldığında otomatik olarak karşınıza bir InputBox nesnesi çıkmaktadır. Dosyanın açılabilmesi için, doğru şifreyi yazmanız gerekir. Eğer yanlış yazdıysanız, toplam 3 kere size doğru şifreyi yazma hakkı tanımaktadır. 3. denemede de doğru şifre yazılmamışsa, dosya kaydedilmeden kapanacaktır.
Faydalanılması temennisiyle.
