Was mache ich nur falsch? :/
Wenn ich das nur wüsste.
Bei welchem Code kommt denn die Meldung?
Du musst überigens den Code für den Schutz nur einmal ausführen, dann wird der Blattschutz mit dem im Code stehenden Passwort gesetzt. Wenn du das Passwort ändern willst, musst Du es erst wieder "entfernen", z. B. mit folgendem Code:
Private Sub Blattschutz_entfernen()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.unProtect Password:="Dein Passwort"
Next sh
End Sub
Erst dann kannst Du den schutz wieder neu setzen.
Grüße
Michael
|