üç yanlış şifre girişinden sonra forma yönlendirme

[nirvanarapeme]

Arkadaşlar aşağıdaki kodda 3 defa yanlış şifre girildiğinde userform1 e gitmesini sağlamam için ne eklemeliyim. Teşekkürler

Private Sub Worksheet_Activate()
Application.Visible = False
sifre = "123456"
yazılan_sifre = InputBox("Şifrenizi yazın", "")
If yazılan_sifre <> sifre Then Sheets("ANA SAYFA").Select
Application.Visible = True
End Sub

 

[bedersu]

Sayın nirvanarapame,
Öncelikle bir yere log.ini isimli bir dosya oluşturun.Mesela C sürücüsüne.Kodlarınızı aşağıdaki gibi değiştirin:

Sub sifre()

yazılan_sifre = InputBox("Şifrenizi yazın", "")
If yazılan_sifre = "123456" Then
Kill "c:\log.ini"
'MsgBox "Şifre doğru."
Exit Sub
Else
MsgBox "Yanlış Şifre Girdiniz", vbCritical + vbOKOnly, "HATA"

Open "C:\log.ini" For Append As #1
Print #1, 1
Close #1


Open "C:\log.ini" For Input As #1
Input #1, kayit
kayit = kayit + 1
Close #1

Open "C:\log.ini" For Output As #1
Print #1, kayit
Close #1

If kayit >= 4 Then ana_sifre.Show 'Burada ana şifre isimli bir userform oluşturup şifre isteyin
If kayit < 4 Then Exit Sub


End If
End Sub

 

[halit3]

Arkadaşlar aşağıdaki kodda 3 defa yanlış şifre girildiğinde userform1 e gitmesini sağlamam için ne eklemeliyim. Teşekkürler

Alternatif olarak kod

Dim say As Long
 
Private Sub Worksheet_Activate()
Application.Visible = False
sifre = "123456"
yazılan_sifre = InputBox("Şifrenizi yazın", "")
If yazılan_sifre <> sifre Then
say = say + 1
If say >= 3 Then
UserForm1.Show 0
Else
MsgBox say
Worksheet_Activate
Sheets("Sayfa1").Select
End If
End If
Application.Visible = True
End Sub

 

[nirvanarapeme]

Teşekkürler arkadaşlar