folgende Situation:
Beim Starten der Datei wird ein Paßwort abgefragt. Nach einer falschen Eingabe wird die Datei schreibgeschützt geöffnet. Im Idealfall sollte man die Datei jetzt nicht mehr speichern können (was wohl nicht geht).
Deswegen möchte ich jetzt, dass beim Speichern der Datei ein Passwort eingegeben werden muss. Den dazu gehörigen Befehl bekomme ich einfach nicht hin. Ich habe es mit ActiveWorkbook.SaveAs versucht
Hier der Code:
Eingabe = InputBox(" Zeitpunkt abgelaufen. Bitte das Passwort eingeben:")
If Eingabe = "555" Then Exit Sub
MsgBox "Falsches Passwort. Die Datei kann nicht gespeichert werden."
ActiveWorkbook.ChangeFileAccess xlReadOnly
ActiveWorkbook.SaveAs ?
'End If
Vielen Dank im voraus
Tobias