Geschützt oder ungeschützt

Sub prüfen()
If ActiveSheet Is Unprotect Then
MsgBox "Tabelle ist bereits ungeschützt !!!"
Exit Sub
Else
Blattschutzi
End If
End Sub

Sub Blattschutzi()
Dim p As String
Dim i As Worksheet
p = InputBox("Geben Sie das richtige Passwort ein", "Passwort !!!", "Passworteingabe")
If p = "" Then
MsgBox "Keine Eingabe"
Exit Sub
End If
If p <> "xxx" Then
MsgBox "Das Passwort ist falsch," & Chr(10) & _
"Sie haben keine Berechtigung den " & Chr(10) & _
"Blattschutz aufzuheben !!!!", vbCritical, "Meldung"
End If
If p = "xxx" Then
Blattschutz_aufheben_mit_Passwort
Else
Exit Sub
End If
End Sub

Sub Blattschutz_aufheben_mit_Passwort()
Dim WS As Worksheet
For Each WS In Worksheets
WS.Unprotect Password:="xxx"
Next WS
End Sub