Blattschutz über Codenamen des Blattes
24.03.2015 16:07:55
Matthias
mittls der beiden Code kann ich den Blattschautz aktivieren und aufheben.
Worksheets("Aufstellung Brandschutzklappen").Unprotect Password:="sperl"
Worksheets("Aufstellung Brandschutzklappen").Protect Password:="sperl"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Das Problem ist hierbei, dass ich mich ja auf den Blattnamen beziehe und falls dieser geändert wird, geht der Bezug verloren.
Wie kann ich den Code an den Codename des Sheets anpassen, sodass der Blattname keinen Einfluss meher hat.
Gruss