Freigabe und Makro
Bernie
Option Explicit
Private Sub auto_open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Protect Password:="test", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next ws
End Sub
Dies funktioniert auch reibungslos. Allerdings wenn ich dann die Datei für die Bearbeitung für mehrere User Freigebe erhalte ich eine Fehlermeldung: Run-time error '1004': Method 'Protect' of object '_Worksheet' failed. Hab danach versucht das auto_open wegzulassen und das Makro über einen Button zu öffnen aber dieselbe Fehlermeldung. Hab probiert ob die Gruppierung nur im Freigabemodus funktioniert und das funktioniert, jedoch nicht mit dem Makro.
Weiss jemand wie man trotz Freigabe die Gruppierung in einem geschützten Blatt zum Laufen bringt?
Danke,
Bernie
Anzeige