Ich bräuchte eine Anpassung.
Blattschutz aufheben:
Sub Schutz_Aufheben()
Dim i As Integer
For i = 1 To Sheets.Count
ActiveWorkbook.Sheets(i).Unprotect Password:="Test"
Next
MsgBox "alle Blätter wurden vom Blattschutz befreit"
End Sub
Blattschutz setzen:
Sub Blatt_Schutz()
Dim i As Integer
For i = 1 To Sheets.Count
ActiveWorkbook.Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:="Test"
Next
MsgBox "alle Blätter wurden geschützt"
End Sub
LG