hab in meiner Datei leider ein Fehler aber weiss nicht, wie ich das ändern kann. Könnte mal jemand bitte schauen!
https://www.herber.de/bbs/user/49961.zip
Vielen Dank
T.
Private Sub Workbook_Open()
Static Fehler As Byte
Dim TextBox1 As String
Dim tage As Long
UserForm1.Show
Select Case user
Case "A"
Select Case ThisWorkbook.Sheets("Tabelle1").Range("B1")
Case ""
ThisWorkbook.Sheets("Tabelle1").Range("B1") = Date
Case Is
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode vbFormCode
End Sub
Passwort wird zwar abgefragt aber es wird nicht die Anzahl der falsch Eingaben geprüft.
T.