Herbers Excel-Forum - das Archiv

Gliederung in geschützem Arbeitsblatt

Bild

Betrifft: Gliederung in geschützem Arbeitsblatt
von: Marcel

Geschrieben am: 25.02.2005 15:53:57
Hallo
Ich habe verdankenswerter Weise über das Forum folgenden Code erhalten, der es erlaubt, trotz geschütztem Arbeitsblatt die Gliederungsfunktionalität zu nutzen.

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
Sheets("Welcome").Activate
End Sub

Es stellt sich nun folgende Frage: Durch diesen Code werden automatisch alle Arbeitsblätter der gesamten Mappe geschützt - was sehr gut ist. Normalerweise kann man beim schützen von Arbeitsblättern Optionen auswählen. Jetzt ist jeweils nur "Nicht geschützte Zellen auswählen" aktiviert. Ich möchte nun aber noch die erste Option "Gesperrte Zellen auswählen" ebenfalls aktiviert haben.
Irgendwie krieg ich das aber nicht hin. Kann mir da bitte jemand helfen?
Vielen Dank
Marcel
Bild

Betrifft: AW: Gliederung in geschützem Arbeitsblatt
von: Ulf
Geschrieben am: 25.02.2005 16:01:42
Einfach diese Zeile: .EnableSelection = xlUnlockedCells
weglassen.
Ulf
Bild

Betrifft: AW: Gliederung in geschützem Arbeitsblatt
von: Marcel
Geschrieben am: 25.02.2005 16:19:45
Hallo
Vielen Dank - funktioniert.
Schöne Grüsse
Marcel
Bild

Betrifft: AW: Gliederung in geschützem Arbeitsblatt
von: RainerK

Geschrieben am: 25.02.2005 16:03:22
Hi,
probier mal so:
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.Unprotect Password:="xxx"
.EnableSelection = xlNoRestrictions
.EnableOutlining = True
.Protect Contents:=True, Password:="xxx", userInterfaceOnly:=True
End With
Next
Sheets("Welcome").Activate
End Sub

Gruß Rainer
 Bild
Excel-Beispiele zum Thema "Gliederung in geschützem Arbeitsblatt"
1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen Aktueller Arbeitsblattname in Formel
Arbeitsblatt 40 mal kopieren 40 neue Arbeitsblätter hinzufügen
Diagramm aus Arbeitsblatt in Diagrammblatt übertragen Wert in alle Arbeitsblätter eintragen
Ausgewählte Arbeitsblätter auslesen AutoFilter über mehrere Arbeitsblätter setzen
Alle überflüssigen Leerzeichen im Arbeitsblatt löschen Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg