الدخول ب3 محاولات.وادا كانت لمحاولة ثالثة خطأ يغلق الملف نهائي
Private Sub CommandButton1_Click()
Static compteur As Byte
compteur = compteur + 1
If TextBox1.Value = Sheet1.[A1].Text And TextBox2.Value = Sheet1.[A2].Text Then
Unload Me
Else
If compteur = 3 Then
MsgBox "خطاء في كتابةكلمةالسر." & _
vbCrLf & "لايمكنك الدخول للبرنامج" & _
vbCrLf & vbCrLf & "سوف تغادر....", _
vbOKOnly + vbCritical, "كلمةالسر خاطئة"
ActiveWorkbook.Close
End If
MsgBox "كلمةالسرغيرصحيحة." & _
vbCrLf & "ليس لديك الصلاحية للدخول", _
vbOKOnly + vbExclamation, "كلمةالسرخاظئة"
TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus
Me.Caption = "Entrez le mot de passe. Tentative " & _
compteur + 1 & " sur 3"
i = i + 1
If i = 2 Then
End
End If
End If
End Sub
