Schutz einstellen und aufheben
Sebastian
ich habe über den Makrorekorder das Einstellen des Blattschutzes aufgezeichnet.
Sub Makro1()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True
End Sub
Allerdings finde ich nirgendwo das Passwort "Peter", was ich eingegeben habe.....
Weiterhin habe ich eine Gliederung, die mit diesem Schutz nicht mehr bedient werden kann. Wie müsste der Code erweitert werden? Ich finde es nicht heraus.
Und als letztes: wenn Kennwort und Gliederung hinterlegt sind, wie müsste dann der Code lauten, zum aufheben?
Ich kriege noch graue Haare.
Sebastian
Anzeige