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

Beiträge aus den Excel-Beispielen zum Thema "Gliederung in geschützem Arbeitsblatt"