Hallo liebe Mietglieder, ich habe alles rechachiert und ausprobiert
Was muss beim Blattschutz angehakt sein, damit später nichts möglich ist aus Filtern und Gruppierung öffnen/ schließen?
Mein Code sieht wie folgt aus und ist unter "Diese Arbeitsmappe"/ Worbook/ Open eingegeben:
Sub Workbook_Open()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="DeinPasswort" 'Passwort anpassen
ws.EnableAutoFilter = True 'ermöglicht Autofilter
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next ws
End Sub
Es klappt aber nicht.
Ich habe auch die Reihenfolge (Filter eingeflegt, Gruppierung aufgeklappt, Speichern, VBA- Code eingeben, Schließen, Speichern mit Makro) eingehalten.
Zudem ist das Passwort "123" = Passwort des Blattschutzes.
Ich benötige dringend Unterstützung!
Komme allein nicht weiter!
Freue mich auf eure Hilfe!