Passwortabfrage
01.02.2003 16:06:01
Micha
Mit diesem Code aktiviere ich eine UF.
Private Sub cmdOK_Click()
If txtPasswort.Text = "xyz" Then
frmDaten.Show
Unload Me
Else
MsgBox "Kein Zugang!"
txtPasswort.Text = ""
txtPasswort.SetFocus
End If
End Sub
Jetzt soll nach der 3.falschen Eingabe des Passwortes die Arbeitsmappe geschlossen werden. Vielen Dank im voraus