Şifreyi 3 defa yanlış girince ve çarpıdan kapatınca sayfa kapansın

[ferhatgurbuz]

Arkadaşlar aşağıdaki kodda ilave olarak 3 defa şifreyi yanlış girince kapanmasını ve çarpıdan kapatılınca sayfanın kapanmasını istiyorum.

yardımlarınız için şimdiden teşekkür ederim.






Private Sub CommandButton3_Click()
If Val(TextBox2) = Worksheets("Anasayfa").Range("B1").Value Then
Sheets("Anasayfa").Select
Range("a1").Select
Sheets("Anasayfa").Select
Range("a1").Select
Unload Me
UserForm1.Show

Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical
TextBox2.SetFocus
TextBox2.Value = ""
Sheets("Anasayfa").Select
Range("a1").Select
Sheets("Anasayfa").Select
Range("a1").Select
End If
End Sub

 

[Ayhan Ercan]

Merhaba Sn ferhatgurbuz

Ek dosyayı inceleyiniz..

 

[ferhatgurbuz]

bir yerlerde hata yapıyorum ama nerde

size zahmet olacak hocam. kodu kopyaladım ama hata veriyor. bir bakabilirseniz sevinirim.

şifre 1 dir .

 

[Ayhan Ercan]

Tekrar merhaba Sn ferhatgurbuz


Sonuç alamamanızın nedeni aşağıdaki satır ile bağlı.

If Val(TextBox2) = Worksheets("Anasayfa").Range("B1").Value Then

If Val(textbox2) ile textboxa girilen bilginin "metin" olmaması gerekir.

ya şifrenizi "sayısal" girerek deneyiniz yada kodunuzu aşağıdaki gibi değiştiriniz.

If TextBox2 = Worksheets("Anasayfa").Range("B1").Value Then

 

[ferhatgurbuz]

TeŞekkÜr Ederİm. Ayhan Bey. Ellerİnİze SaĞlik

 

[Ayhan Ercan]

TeŞekkÜr Ederİm. Ayhan Bey. Ellerİnİze SaĞlik

Rica ederim.
İyi Çalışmalar ... k::