Ist es möglich Gruppierungen (Outlines) in einen geschützten Sheet zu benutzen. also gruppierungen öffnen & schließen?
Wenn ja wie?
danke danke danke!
der alex
Private Sub Workbook_Open()
'Makro bewirkt, daß die Gliederungsfunktionen in
'dem WS trotz des Blattschutzes genutzt werden können
With Worksheets("Tabelle1")
.Protect password:="Dein Password", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub
Private Sub Workbook_Open()
With Sheets("Tabelle1")
.Unprotect Password:="xxx"
.EnableOutlining = True
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True, Password:="xxx"
End With
End Sub
Private Sub Workbook_Open()
Dim Ws As Worksheet
For Each Ws In Worksheets
With Ws
.Unprotect Password:="xxx"
.EnableOutlining = True
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True, Password:="xxx"
End With
Next
End Sub