Sayfaya şifre Koymak,

[sabri şirin]

Merhaba,

Private Sub CommandButton1_Click()
Call KALDIR
UserForm1.Hide
Sheets("Gider").Select
ActiveWindow.DisplayHeadings = False
Call KORU
End Sub

Yukarıdaki Koda şifre eklemek istiyorum.Şifre yanlış girildiğinde yetkisinin olmadığını gösteren ikaz ve tekrar UserForm1'a dönsün.Şifre doğru girildiğinde istenilen sayfaya gitsin.
Bu konuda yardımcı olursanız memnun olurum.
Saygılarımla...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
[COLOR=blue]Dim sor As String, sifre As String[/COLOR]
[COLOR=blue]sifre = "[COLOR=red]excel[/COLOR]"
sor = Application.InputBox("Şifre Girin", "Admin Panel")
If sor <> sifre Then
    MsgBox "Yanlış Şifre"
    Exit Sub
End If
[/COLOR]Call KALDIR
UserForm1.Hide
Sheets("Gider").Select
ActiveWindow.DisplayHeadings = False
Call KORU
End Sub

.

 

[sabri şirin]

Ömer Hocam,
Verdiğiniz cevap için teşekkür ederim. Biraz araştırınca bende farklı bir çözüm yolu buldum.
Tabi birazda espri katarak, ilginenen arkadaşlar için kodlar aşşağıdadır.

Private Sub CommandButton1_Click()
Call KALDIR
YesNo = MsgBox("Bu Sayfaya Girmeye yetkiniz Varmı?", vbYesNo + vbCritical, "Konak")
Select Case YesNo
Case vbYes
Dim Sabri_Sirin
Sabri_Sirin = InputBox("Eee O Zaman Şifre Lütfen...")
If Sabri_Sirin = "1980" Then
UserForm1.Hide
Sheets("Gider").Select
ActiveWindow.DisplayHeadings = False
Call KORU
Else
MsgBox "Hani Yetkin Vardı!", vbCritical, "Sabri ŞİRİN"
End If
Case vbNo
End Select
End Sub