Hallo zusammen,
ich habe in meiner Excel-Tabelle(mit zwei Reitern) eine Gruppierung und einen Blattschutz drin und würde diese Datei gerne freigeben. Da normalerweise die Gruppierung mit dem Blattschutz nicht kombinierbar ist, habe ich diesen Code eingefügt:
Sub Workbook_Open()
Dim ws As Worksheet
For Each ws in Worksheets
ws.Protect userinterfaceonly:= True
ws.EnableOutlining = True 'für Gliederung
Next ws
End Sub
Mit diesem Code funktioniert es aber sobald ich die Datei freigebe, tut das Makro nicht.
Gibt es da eine Möglichkeit, dieses Problem zu lösen?
Vielen Dank im Voraus!
|