Aufheben: Sub BlattschutzAufheben() For Each Blatt In ActiveWorkbook.Worksheets Blatt.Unprotect Password:="MeinPasswort" Next End Sub Setzen: Sub BlattschutzSetzen() For Each Blatt In ActiveWorkbook.Worksheets Blatt.Protect Password:="MeinPasswort", DrawingObjects:=True, Contents:=True, Scenarios:=True, […]