Arbeitsblattschutz <-> Gliederung
04.08.2003 09:54:47
Torsten Kreuer
ich habe vor ein paar Tagen ein Problem geschildert, bei dem es darum ging, trotz eines aktivierten Blattschutzes die Gliederungsfunktion in Excel ausführen zu können. Daraufhin erhielt ich folgende Lösung:
Private Sub Workbook_Open()
With Worksheets("Tabelle1")
.Protect Password:="Kennwort", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub
Das funktioniert auch einwandfrei.
Allerdings habe ich dann ein kleines Problem damit, wenn ich vorher das Arbeitsblatt über ein kleines Makro geschützt habe. Da ich viele Dateien erstelle, die auch den Kollegen zugänglich sind und ich beim Bearbeiten nicht immer über Extras/Schutz/Blatt schützen bzw. Blattschutz aufheben gehen möchte, habe ich ein kleines Makro mit einem Symbol in meine Symbolleiste gesetzt:
Sub Sheet_Protect()
ActiveSheet.Protect password:="Kennwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
bzw.
Sub Sheet_Unprotect()
ActiveSheet.Unprotect password:="Kennwort"
End Sub
Wie schon gesagt, wenn ich einmal über dieses Symbol das Arbeitsblatt geschützt habe, funktioniert der oben beschriebene Programmcode nicht mehr, das heißt, Excel gibt mir eine Fehlermeldung, daß geschützte Zellen nicht geändert werden können. Wenn mir hier jemand sagen könnten, wie ich den Code der Makros ändern muß, sodaß auch der andere Code funktioniert, wäre mir sehr geholfen.
Vielen Dank für Eure Bemühungen im voraus.
Gruß
Torsten Kreuer