Makro ändern

Sub test()
Static PWVers As Byte
Dim PW As String
' Das geforderte Passwort
PW = "m"
' Nur 3 Versuche möglich mit dieser Zeile:
If PWVers > 2 Then Exit Sub
If InputBox("Bitte Passwort eingeben", "Passwortabfrage", "m......") = PW Then
ActiveSheet.Unprotect ("m") ‚ <<<< MsgBox "Blattschutz ist aufgehoben!"
' Zähler zurücksetzen
PWVers = 0
Else
' Zähler erhöhen
PWVers = PWVers + 1
MsgBox "Passworteingabe war falsch" & Chr(13) & _
"Sie haben noch " & 3 - PWVers & " Versuche"
End If
End Sub

Danke im Voraus!!
Gruß Anika