Gruppierungen öffnen trotz Blattschutz
18.12.2003 10:51:04
Sabrina
habe ein kleines Problem - vielleicht kann mir jemand helfen?
Der Quellcode ist folgender:
Private Sub Workbook_Open()
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect Contents:=True, _
DrawingObjects:=False, _
Scenarios:=True, _
UserInterfaceOnly:=True, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True
AddIns("Umsa").Installed = True
End Sub
Damit lassen sich alle Gruppierungen auf dem 1. Tabellenblatt trotz Blattschutz öffnen. Allerdings funktioniert das auf dem 2. Tabellenblatt nicht, obwohl alle anderen "Dinger" (z.B. Formatierungen erlauben) dort schon funktionieren.