Sobald ich den Code ausgeführt habe.
Private Sub Blaetter_schuetzen()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="Dein Passwort", UserInterfaceOnly:=True
Next sh
End Sub
Mir wird beim Öffnen der Datei eine Fehlermeldung angezeigt, dass ich das Passwort falsch eingegeben habe. Dabei wurde ich noch nach gar keinem Passwort gefragt?
|