Blattschutz

Folgender Code (aus Recherche) bringt bei mir Fehlermeldung:
"Die Methode 'Unprotect' für das Object '_WorkSheet' ist fehlgeschlagen"

Sub KeinSchutz()
Dim ws As Worksheet, a As String

For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:=""
Next

End Sub

Ich habe alle Blätter geschützt, im Augenblick noch ohne Passwort.
Weiß jemand Rat ???

Gruß Lutz