Sayfa açılmasına şifre konulması

[kemal turan]

Merhaba arkadaşlar
Aşağıdaki kodu forumdan buldum.
Mevcut koda "Şifre yanlış ise planlama sayfası açılsın" kodunu ekledim.
Burası çalışıyor.
Fakat,
Kod doğru ise sayfanın açılması gerek, ama açılmıyor.
Yardımcı olursanız sevinirim.
Teşekkürler

Private Sub Worksheet_Activate()
Application.Visible = False
sifre = "12345"
yazılan_sifre = InputBox("Şifrenizi yazın", "")
If yazılan_sifre <> sifre Then
MsgBox "Yetkili Değilsiniz", , "kemal turan"
Sheets("planlama").Select
Application.Visible = True
End If

End Sub

 

[hamitcan]

Kodu Sayfa2'nin kod kısmına ekleyin.

Private Sub Worksheet_Activate()
    Application.Visible = False
    sifre = "12345"
    yazılan_sifre = InputBox("Şifrenizi yazın", "")
    If yazılan_sifre <> sifre Then
        MsgBox "Yetkili Değilsiniz", , "kemal turan"
        Application.Visible = True
        Sheets("planlama").Select
    Else
        Application.Visible = True
        Sayfa2.Select
    End If
End Sub

 

[kemal turan]

Sn.hamitcan ustad
Çok teşekkür ederim.
Selametle kalınız.