29.10.2018, 14:02
Hallo zusammen,
ich komme nicht weiter mit einer Makro für Blattschutz mit entsprechenden Kriterien....
Denn leider musste ich feststellen, dass unter einem Blattschutz die Gruppierungen sich nicht mehr öffnen und schließen lassen.
Und somit wollte ich den Weg über eine Makro versuchen.
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="Passwort"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Und mit dieser Makro funktioniert das auch, allerdings werden benötigte Kriterien beim setzten des Blattschutzes deaktiviert. Nur leider bekomme ich es nicht hin, die entsprechenden Punkte in den Code mit ein zu binden.
Hier die Kriterien:
[
Bild bitte so als Datei hochladen: Klick mich!
]
Habt Ihr vielleicht eine Idee? wie ich das über eine VBA lösen könnte?
Es sollte auch über mehrere Blätter arbeiten. Ich habe leider keine Idee mehr und nichts hat so recht funktioniert.
Vielen Dank
Grüße
Tyler
ich komme nicht weiter mit einer Makro für Blattschutz mit entsprechenden Kriterien....
Denn leider musste ich feststellen, dass unter einem Blattschutz die Gruppierungen sich nicht mehr öffnen und schließen lassen.
Und somit wollte ich den Weg über eine Makro versuchen.Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="Passwort"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Und mit dieser Makro funktioniert das auch, allerdings werden benötigte Kriterien beim setzten des Blattschutzes deaktiviert. Nur leider bekomme ich es nicht hin, die entsprechenden Punkte in den Code mit ein zu binden.
Hier die Kriterien:
[
Bild bitte so als Datei hochladen: Klick mich!
]
Habt Ihr vielleicht eine Idee? wie ich das über eine VBA lösen könnte?
Es sollte auch über mehrere Blätter arbeiten. Ich habe leider keine Idee mehr und nichts hat so recht funktioniert.
Vielen Dank
Grüße
Tyler
