AW: Passwort 3x falsch dann beenden
02.06.2004 16:14:45
Matthias
Hallo Michael,
ein Codeschnipsel aus meinem kürzlich erstellten Programm:
Option Explicit
Public Versuche As Integer
Const MaxVersuche = 3
Private Sub OKButton_Click()
Dim Rest As Integer
Dim pl As String
Versuche = Versuche + 1
Rest = MaxVersuche - Versuche
If KennwortBox = Passwort(BenutzerBox) Then
If LeseEintrag(BenutzerBox, "KontoAktiv") <> "j" Then
MsgBox "Ihr Konto ist deaktiviert. Die Anwendung wird beendet.", vbCritical, "Konto-Einschränkung"
Me.Hide
ThisWorkbook.Saved = True
ThisWorkbook.Close
Else
Application.EnableEvents = False
With Sheets("Benutzerrechte")
.Range("AW1").Value = BenutzerBox
End With
Application.EnableEvents = True
If LeseEintrag(NTBenutzer, "KWMuss") = "j" Then
MsgBox "Das Kennwort muss geändert werden.", , Benutzername
UFKennwortÄndern.Show
End If
Unload Me
End If
Else
'falsche Kennwort
If Rest = 0 Then
MsgBox "Ungültiges Kennwort. Die Anwendung wird beendet."
Me.Hide
ThisWorkbook.Saved = True
ThisWorkbook.Close
Else
If KennwortBox = "" Then
Versuche = Versuche - 1
Rest = MaxVersuche - Versuche
End If
If Rest = 1 Then pl = "" Else pl = "e"
MsgBox "Benutzername und Kennwort stimmen nicht überein!" & vbLf & vbLf & _
" Noch " & Rest & " Versuch" & pl, vbCritical, "Fehler"
With KennwortBox
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End If
End Sub
kann man nicht 1:1 übernehmen wg. weiteren Subs, die aufgerufen werden. Ist aber leicht anzupassen.
Gruß Matthias