Sayfa ilk açılırken Inputbox ile şifre sorma,yanlış olduğunda sistemden çıkma.

[kamil1903]

Meraba arkadaşlar.

Ben şöyle birşey yaptım(Başka bir arkadaşın hazırladığını değiştirdim). Excel de sayfa açıldığında " Şifre Sor " butonuna basıldığında Inputbox ile şifre soruyor. Eğer şifreyi boş girerseniz, şifre girmek mecburidir diyor. 2 kere boş girerseniz üst üste veya değil msgbox ile 2 kere boş girdiniz diyor. Ama excel sayfasını kapatmıyor. Şifre yanlış girildiğinde de aynı şekilde.

Benim istediğim ; 1) Sayfa açıldığında direk (yani tuşa basmadan ) inputbox ile şifre sorsun.

2) 2 kere yanlış veya boş girdiğinde sistemden yani sayfadan çıksın.
3) Bir de Inputbox da Cancel tuşuna bastığımda sistemden çıksın.

Şifre doğru girildiğinde zaten sayfaya dönmektedir. Hazırladığımı gönderiyorum ekte.

Arkadaşlar yardımlarınızı bekliyorum. Ayrıca böyle güzel bi forumda bilgi alışverişinde bulunmak çok güzel bir şey.

 

[Kemal Demir]

sn.kamil1903

oncelikle forumumuza hoş geldiniz.

 

[Mahmut Bayram]

Şunu bir modüle kopyalayın

Sub auto_open()
Static sayac As Integer
Do
If sayac = 2 Then
ThisWorkbook.Close False
Else
If InputBox("Şifreyi girin") = "partner" Then
GoTo devam
Else
sayac = sayac + 1
End If
End If
Loop
devam:
End Sub

 

[talatcd]

şifre

Partner arkadaşın yazmış olduğu şifre nin bende de aynısı var onu dosyaya atıp gönderiyorum. Şifre : 123456 dır
Dosya ekte

 

[kamil1903]

beyler elinize sağlık teşekkürler...