VBA Passwortschutz für alle Blätter?

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

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