Sub alles_schuetzen()
Dim c As Worksheet
For Each c In ActiveWorkbook.Worksheets
c.Protect Password:="blabla", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub
Sub alles_unschuetzen()
Dim c As Worksheet
For Each c In ActiveWorkbook.Worksheets
c.Unprotect Password:="blabla"
Next
End Sub
Gruß
David