habe mir eine Userform mit alternativer PW-Eingabe gebastelt.
Funktioniert auch so wie es soll. In A2 und B2 des Sheets *Eingangsseite* sind die beiden Möglichkeiten für die PW-Eingabe hinterlegt (Master-PW und 12345678)
Allerdings kommt mir der Code recht holperig vor. Jemand eine Idee, wie ich den Code straffen kann?
Private Sub cmd_OK_Click()
Application.ScreenUpdating = False
If txtPasswort.Text Sheets("Eingangsseite").Range("A2") Then
If txtPasswort.Text Sheets("Eingangsseite").Range("B2") Then
MsgBox "Nein!" _
& vbCrLf & vbCrLf & "Das Passwort ist leider FALSCH."
Application.ScreenUpdating = True
MsgBox "Die Datei wird geschlossen", vbInformation, "Hinweis"
ThisWorkbook.Close savechanges:=False
Else
MsgBox "OK, Du bist berechtigt."
Unload Me
Sheets("Eingangsseite").Activate
Sheets("Eingangsseite").Range("A4").Value = "12345678 akzeptiert"
Application.ScreenUpdating = True
End If
Else
MsgBox "OK, Du bist berechtigt."
Unload Me
Sheets("Eingangsseite").Activate
Sheets("Eingangsseite").Range("A4").Value = "Master-PW akzeptiert"
Application.ScreenUpdating = True
End If
End Sub
Vielen Dank und viele GrüßeDietmar aus Aachen