Gliederung in geschützem Arbeitsblatt
25.02.2005 15:53:57
Marcel
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
Anzeige