Attribute VB_Name = "SchutzMakros"

Sub AlleBlaetterSchutz_ein()
For Each Blatt In ActiveWorkbook.Sheets
    Blatt.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="passwort"
Next
    
End Sub

Sub AlleBlaetterSchutz_aus()
For Each Blatt In ActiveWorkbook.Sheets
    Blatt.Unprotect ("passwort")
Next
    
End Sub