wenn ich den Blattschutz einstelle,dann läst sich die Gruppierung.. nicht schließen bzw. öffnen. Gibt es einen weg, dass es geht?
Gruss
stavros
Private Sub Workbook_Open()
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.Protect password:="Dein Paßword", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_Open()
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect UserInterfaceOnly:=True
End Sub