|
Hallo zusammen,
ich habe aus einem Youtube-Video ein Makro gefunden um den Blattschutz ein-/auszuschalten und dies nachgebaut:
Sub Schutz_Alle_Aus()
Application.ScreenUpdating = False
Dim Blatt As Worksheet
For Each Blatt In Worksheets
Blatt.Unprotect Password:="1234"
Next Blatt
Application.ScreenUpdating = True
End Sub
Sub Schutz_Alle_Ein()
Application.ScreenUpdating = False
Dim Blatt As Worksheet
For Each Blatt In Worksheets
Blatt.Protect Password:="1234"
Next Blatt
Application.ScreenUpdating = True
End Sub
Nun bekomme ich folgende Meldung: "Laufzeitfehler '1004': Das eingegebene Kennwort ist ungültig.....
Wenn ich auf "Debuggen" klicke, wird folgende Zeile gelb markiert:
Sub Schutz_Alle_Aus()
Application.ScreenUpdating = False
Dim Blatt As Worksheet
For Each Blatt In Worksheets
Blatt.Unprotect Password:="1234"
Next Blatt
Application.ScreenUpdating = True
End Sub
Ich kann keinen Fehler feststellen. Was mache ich falsch?
Vielen Dank im Voraus für eure Unterstützung.
VG
Fairplay1986
|