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"