inputbox şifre girişinde hatalı şifrede mesaj bildirimi???

[tahiroglu]

herkese merhabalar..
forumdan faydalanarak bir kodu çalışma kitabıma ekledim.Kitaptaki istenilen sayfalara girişi engelleyen bir kod.Hatalı şifre girişi yapıldığında daha önce belirtilmiş ana sayfaya geçişi sağlıyor.Fakat hatalı şifre girişi yapıldığında önce bir mesaj verip sonra anasayfaya dönüşü nasıl yapabiliriz.?
Araya msgbox kodunu yazdığım zaman hem hatalı hemde doğru şifre girişinde aynı mesaj çıkıyor..
Yardımlarınızı bekliyorum..

Private Sub Worksheet_Activate()
Application.Visible = False
şifre = "11"
yaz_şifre = InputBox("Şifrenizi Yazın", "")

If yaz_şifre <> şifre Then Sheets("Cari Seçimi").Select



Application.Visible = True

End Sub

 

[Orion1]

Makroları devre dışı bırakarak istenilen sayfalara çok rahat geçiş yapılabilir.
Hatırlatayım dedim..

 

[ipekyolu]

Private Sub Worksheet_Activate()
Application.Visible = False
şifre = "11"
yaz_şifre = InputBox("Şifrenizi Yazın", "")

If yaz_şifre <> şifre Then
    Sheets("Cari Seçimi").Select
    MsgBox "Şifre hatalı"
else
    MsgBox "Şifre doğru"
End If


Application.Visible = True

End Sub

 

[tahiroglu]

Teşekkür ederim..iyi günler..