Gruppierungen verändern, wenn Blattschutz aktiv
13.07.2016 19:59:07
Fred
mit dem Code im PS gelingt es mir, trotz Blattschutz Gruppierungen auf- und zuzuklappen. Nun möchte ich aber auch das Verändern der Gruppierungen ermöglichen (Gruppierungen entfernen, zusätzliche Zeilen gruppieren) während der Blattschutz aktiv ist. Wie kriege ich das hin?
Vielen Dank für Hinweise!
Grüße,
Fred
PS. Hier der Code
Private Sub Workbook_Open()
Dim wsh As Worksheet
For Each wsh In Me.Worksheets
wsh.EnableOutlining = True
wsh.Protect UserInterfaceOnly:=True
wsh.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Next wsh
End Sub
Anzeige