Habe jetzt den Blattschutz entfernen 1x laufen lassen
1 2 3 4 5 6 | Private Sub Blattschutz_entfernen()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.unProtect Password:= "Dein Passwort"
Next sh
End Sub
|
Dann gespeichert.
Neu geöffnet und den Code
1 2 3 4 5 6 | 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
|
1x laufen lassen, gespeichert, wieder geöffnet aber trotzdem werde ich nicht nach einem PW gefragt.
Ich erhalte aber auch immer den Laufzeitfehler 1004, keine Ahnung was ich noch falsche mache. Verzweifle langsam :(
Vielen Dank für die Hilfe.
|