Deine Formel funktioniert super
Sub BlattEin()
For Each sh In Sheets
sh.Protect Password = "EIN"
Next sh
End Sub
Sub BlattAus()
For Each sh In Sheets
sh.Unprotect Password = "EIN"
Next sh
End Sub
Mit welchen Password kann ich nun den Blattschutz von einer einzelnen Tabelle aufheben.
Danke im Voraus