Passwortabfrage vor Datei öffnen
27.08.2007 16:59:00
Gunnar
ich hab mal wieder eine Frage und hoffe hier (wie bislang immer) kompetente Hilfe zu finden.
Folgenden Code (aus dem Archiv) habe ich etwas modifiziert verwendet:
Private Sub Workbook_Open()
Dim PWort As String, PWEingabe As String, Fehler As Byte
PWort = "abc"
Fehler = 1
nochmal:
' Die Passwort Eingabe wird geprüft
PWEingabe = InputBox("Bitte geben sie Ihr Passwort ein")
If PWEingabe PWort Then
' Prüfen wie oft bereits Fehler
If Fehler
Er funktioniert spitze, aber was mich etwas stört ist,
1. dass die Datei während der Passwortabfrage schon geöffnet ist, man also schon Dateiinhalte sehen kann und
2. dass das Passwort nicht als "***" , sondern eben als "abc" erscheint.
Wie müßte der Code aussehen, damit diese beiden Probleme behoben werden?
Vielen Dank im Voraus & beste Grüße
Gunnar
Anzeige