Blattschutz mit PW | Herbers Excel-Forum

Hallo Leute
Ich möchte einen Blattschutz mi PW setzen bei

'Sub Sperren()
Sub Blattschutz()
Dim i As Integer
ActiveSheet.Unprotect Password:="woody-6962"
For i = 6 To 35
Range("A" & i & ":O" & i).Locked = False
'----hinter or zählt ob Eintragung in L einmal in SpalteX vorkommt
If Cells(i, 1).Value = "" Or WorksheetFunction.CountIf(Range("X64:X81"), Cells(i, 12). _
Value) = 1 Then
Range("A" & i & ":O" & i).Locked = True
End If
Range("A:B,G:K,M:CC").Locked = True
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

ActiveSheet.Protect Password:="Test" DrawingObjects:=True, Contents:=True, Scenarios:=True