Passwort blockiert Makro

Sub ON_OFF_BUTTON()
Dim Passwort As String
Dim wks As Worksheet
On Error GoTo ErrorHandler
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
For Each wks In Worksheets
With wks
If .ProtectContents Then
If Passwort = "" Then Passwort = Application.InputBox("Bitte Passwort eingeben!")
If Passwort = "test" Then
.Unprotect "test"
With .Shapes("Button")
.Left = wks.Shapes("Frame").Left + wks.Shapes("Frame").Width - .Width - 2
.Top = wks.Shapes("Frame").Top + 3
.TextFrame.Characters.Text = "OFF"
.Fill.ForeColor.RGB = RGB(255, 0, 0)
End With
Else
MsgBox "Passwort ist falsch!"
Exit Sub
End If
Else
.Protect userinterfaceonly:=True, Password:="test"
.EnableAutoFilter = True
.EnableOutlining = True
.EnableSelection = xlUnlockedCells
With .Shapes("Button")
.Left = wks.Shapes("Frame").Left + 2
.Top = wks.Shapes("Frame").Top + 3
.TextFrame.Characters.Text = "ON"
.Fill.ForeColor.RGB = RGB(0, 153, 0)
End With
End If
End With
Next
ErrorHandler:
DoEvents
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Public Sub StartLöschen()
Dim b As Range
Set b = Intersect(Sheets("blatt1").Range("13:51,60:137,146:196"), Sheets("blatt1").Range("I: _
K,M:O,Q:S,U:W"))
b.ClearContents
Union(b, b.Offset(, 1)).Interior.Pattern = xlNone
End Sub

Union(b, b.Offset(, 1)).Interior.Pattern = xlNone