Bei Passworteingabe Abbrechen, Tabelle schließen
21.11.2004 17:46:36
Isabell
ich möchte beim öffnen einer Mappe eine Passwortabfrage machen.
Das klappt auch so weit ganz gut, nur wenn ich ein falsches Passwort
eingebe und dann auf die Schaltfläche Abbrechen klicke, kann ich
problemlos über die Mappe verfügen.
Das sollte nartürlich nicht so sein.
Wenn ich also ein falsches Wort eingebe, sollte nach klick auf Abbrechen
die Mappe geschlossen werde.
Kann mir da jemand den Code umschreiben ?
Public
Sub Workbook_Open()
Dim pWord$, Frage$, Meldung$
Worksheets("Tabelle1").Select
Frage = "Bitte Passwort eingeben:"
Meldung = "War wohl nix !"
While InputBox(Frage) <> "Otto"
Beep
If MsgBox(Meldung, vbOKCancel) = vbCancel Then End
Wend
Call DateiOpen
End Sub
Sub DateiOpen()
MsgBox "Passwort stimmt !"
Worksheets("Start").Select
End Sub
Gruß Isabell