Parolayı 3 defa yanlış girince belge kapansın

[ferhatgurbuz]

Arkadaşlar formdan aldığım bir örneği uyarlamaya çalıştım. Ama parolayı yanlış girince direk kapanmıyor. Sadece kaydetmek istiyormusunuz diye uyarı veriyor. Uyarıyı iptal edince yine sayfa açık kalıyor.

Benim istediğim 3 defa yanlış girince sayfa hiç uyarı vermeden kapansın

Kullanıcı adı ve şifre FERHAT tır

 

[Korhan Ayhan]

Selamlar,

Çalışmanızdaki kodları aşağıdaki şekilde düzenleyip denermisiniz.

Private Sub CommandButton1_Click()
Static HATA As Integer
Dim KULLANICI As Long
On Error GoTo HATALI_GİRİŞ
With Sheets("Data").Range("A1:A65536")
KULLANICI = .Find(What:=TextBox1.Value, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
        :=True, SearchFormat:=False).Row
End With
If KULLANICI = 0 Then GoTo HATALI_GİRİŞ
If Sheets("Data").Cells(KULLANICI, 2) <> TextBox2.Text Then GoTo HATALI_G&#304;R&#304;&#350;
Sheets("Data").Range("C1") = TextBox1.Value
Call TEM&#304;ZLE
PAROLA.Hide
MsgBox "Sisteme giri&#351;iniz onaylanm&#305;&#351;t&#305;r.", vbInformation, "HO&#350;GELD&#304;N&#304;Z " & TextBox1.Value
Call UserForm2.Show
Exit Sub
HATALI_G&#304;R&#304;&#350;:
MsgBox "Girdi&#287;iniz kullan&#305;c&#305; ad&#305; veya parolas&#305; hatal&#305;d&#305;r." _
& Chr(10) & "L&#252;tfen girdi&#287;iniz kullan&#305;c&#305; ad&#305;n&#305; ve parolas&#305;n&#305; kontrol ediniz.", vbCritical, "D&#304;KKAT !"
Call TEM&#304;ZLE
HATA = HATA + 1
If HATA = 3 Then
[COLOR=red]ThisWorkbook.Save[/COLOR]
Application.Quit
End If
End Sub

Private Sub CommandButton2_Click()
[COLOR=red]ThisWorkbook.Save[/COLOR]
Application.Quit
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
[COLOR=red]ThisWorkbook.Save[/COLOR]
Application.Quit
End Sub

 

[ferhatgurbuz]

Sayın COST_CONTROL anladığım kadarıyla şuan belgeyi kaydedip kapatıyor. Zaten değişiklik olmadığı içinde birşey farketmiyor.

Benim bir sorum daha olacak After:=.Cells(1, 1), yukarıdaki koddan aldığım bu örnekte 1,1 neyi ifade ediyor. sutun ve satır adresi gösteriyor ama tama anlayamadım.

 

[Korhan Ayhan]

Selamlar,

Bu çalışmayı yaparken makro kaydet yöntemini kullanarak hazırlamıştım. O bölümün pek önemi yok silebilirsiniz.