Macro ile sayfa şifreleme ve uyarı mesajı

[noxious]

Sayın Hocalarım tekrar yardıma ihtiyacım var

Şifreli bir sayfa içerisinde butona tıkladığımızda bize açılır bir kutu içerisinde şifre soracak yanlış şifre veya boş giriş yaptığımızda hata kodu (Run-time Error) yerine bize bir uyarı verecek ve doğru şifre girene kadar sayfanın şifresi açılmayacak

Ekli örnekte açıklama var

Yardımlarınız için şimdiden teşekkürler

 

[Ferhat Pazarçevirdi]

Merhabalar,

Mevcut kodlarınızı aşağıdakiler ile değiştiriniz.

Const Sfr = "1111"
[COLOR=green]'------------------------------[/COLOR]
Sub Şifre_Kaldır()
Dim sifre
Do Until sifre = Sfr
   sifre = InputBox("Şifreyi giriniz", "ŞİFRE")
   If StrPtr(sifre) = 0 Then
      Exit Sub
   ElseIf Len(sifre) = 0 Then
      MsgBox "Yanlış Şifre", vbCritical, "HATALI GİRİŞ"
   Else
      If sifre = Sfr Then
         ActiveSheet.Unprotect Sfr
         Exit Sub
      Else
         MsgBox "Yanlış Şifre", vbCritical, "HATALI GİRİŞ"
      End If
   End If
Loop
End Sub
[COLOR=green]'----------------------------------[/COLOR]
Sub Şifrele()
ActiveSheet.Protect Sfr
End Sub

 

[baydeniro]

Paylaşım İçin Teşekkürler

Sayın fpc. Paylaşım için teşekkürler.

 

[noxious]

Hocam harikasınız tam istediğim gibi çok teşekkürler