üç defa şifre yanlış girilince program kapansın

[ferhatgurbuz]

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
UserForm2.Show

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


bu şifre koduna üç defa yanlış şifre girilince kapanmısını istiyorum. birde Uyarı versin yanlış şifre girdiniz program kapanacaktır diye

Başka birşey daha sormak istiyorum. Makrolar aktifken şifre girmeden program açılmıyor fakat maktolar aktif değilken aynı şeklide programın açılmamasını nasıl sağlarız. ilginize teşekkür ederim arkadaşlar

 

[hamitcan]

Sitede konuyla ilgili birçok örnek mevcut. Araştırmanızı öneririm.

 

[uzmanamele]

merhaba
ekdeki dosya işinizi görür mü?
2. sorunuz için dosya koruma şifresi koyun.

not:kodlar siteden alıntıdır.
şifreler
aaa 111
bbb 222
ccc 333
ddd 444

 

[ferhatgurbuz]

Sayın hamitcan hocam inanın sizleri rahatsız etmek istemezdim ama örnek buluyorum ama onları uyarlıyamıyorum. Yani kodlarla aram iyi değil. kusura bakmayın.

Sayın Uzmanamele arkadaşım aynı örneği bende gördüm. Fakat sayın hocama da aynı şeyleri söyledim. o kodları yukarıdakine nasıl uyarlarım onu bilemiyorum.

 

[hamitcan]

Size yardım etmek isterdim ama benim de zamanım yok.Çünkü istediğiniz basit bir şey değil.

 

[ferhatgurbuz]

teşekkür ederim. Kolay gelsin