wie kann ich folgenden Code anpassen, so dass der User weitere Chancen bekommt (sagen wir 3 Versuche), um das richtige PW einzutragen. Erst danach soll die Datei geschlossen werden.
Private Sub Workbook_Open()
Dim pw As String
Sheets("Tabelle2").Select
If Sheets("Tabelle1").Range("B1").Value "" Then
pw = InputBox(prompt:="Bitte geben Sie Ihr persönliches Passwort ein!", Title:="Passwort- _
Abfrage")
If pw CStr(Sheets("Tabelle1").Range("A1")) And pw CStr(Sheets("Tabelle1").Range(" _
B1")) Then
ThisWorkbook.Close savechanges:=False
End If
End If
End Sub
Vielen Dank vorab!Dietmar aus Aachen