Gliederung und Blattschutz

Bild

Betrifft: Gliederung und Blattschutz von: Marcel Weber
Geschrieben am: 10.02.2005 18:29:25

Habe eine grosse Arbeitsmappe mit 35 Arbeitsblättern und zahlreichen Verknüpfungen und Grafiken erstellt (ca 10 MB).

Zur besseren Darstellung habe ich Spalten und Zeilen gegliedert.
Für die Eingabe einzelner Werte habe ich bei diesen Feldern den Schutz/gesperrt aufgehoben. Das funktioniert auch wunderbar, wenn ich das Arbeitsblatt schütze. Hingegen ist die Gliederung nicht mehr veränderbar (auf- zu klappen) funktioniert nicht, wenn Arbeitsblatt gesperrt.

Ich habe im Archiv nach einer Lösung gesucht, einige Hinweise bekommen - diese Funktionieren jedoch nicht.

Viele Grüsse Marcel

Bild


Betrifft: AW: Gliederung und Blattschutz von: Udo
Geschrieben am: 10.02.2005 18:40:47

"Ich habe im Archiv nach einer Lösung gesucht, einige Hinweise bekommen..."

Was für Hinweise? Poste mal was.

Udo


Bild


Betrifft: AW: Gliederung und Blattschutz von: Marcel Weber
Geschrieben am: 10.02.2005 18:46:56

Am 19.3.04 wurde folgender Code publiziert

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
  With ws
    .EnableSelection = xlUnlockedCells
    '---------------------------------
    .EnableOutlining = True
    '---------------------------------
    .Protect DrawingObjects:=True
    .Protect Contents:=True
    .Protect Scenarios:=True
    .Protect Password:="xxx", userInterfaceOnly:=True
  End With
Next
End Sub


Habe das eingefügt, und die xxx durch das Passwort des Blattschutzes ersetzt. Beim öffnen des Arbeitsblattes springt der Debugger auf .Protect DrawingsObjects:=True

Viele Grüsse Marcel


Bild


Betrifft: AW: Gliederung und Blattschutz von: Udo
Geschrieben am: 10.02.2005 19:08:35

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
  With ws
    .unprotect password:="xxx"
    .EnableSelection = xlUnlockedCells
    .EnableOutlining = True
    .Protect Contents:=True, Password:="xxx", userInterfaceOnly:=True
  End With
Next
End Sub



Bild


Betrifft: AW: Gliederung und Blattschutz von: Marcel Weber
Geschrieben am: 10.02.2005 20:11:51

Vielen Dank für den Input. Habe das nun im VBA-Editor unter DieseArbeitsmappe eingefügt. Beim neu Oeffnen der Datei erscheint der Debugger und markiert die Zeile

.Unprotect Password:="xxx"

Müssen die xxx identisch mit dem Passwort des Blattschutzes sein? Habe das ausprobiert, das bringt aber auch nichts.

Was soll ich jetzt noch machen? Oder habe ich das am falschen Ort eingefügt?

Viele Grüsse Marcel


Bild


Betrifft: AW: Gliederung und Blattschutz von: Udo
Geschrieben am: 10.02.2005 20:18:14

Klar, es muss schon das richtige Passwort sein, ansonsten hab ich keine Idee, warum es bei dir nicht geht, ist getestet und funktioniert.

Udo


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Gliederung und Blattschutz"