Erneutes Öffnen einer Datei mit Gruppierungen und Blattschutz VBA

Hallo Daniel,
<br />wenn du die Mappe freigibst, sind die Symbole für den Blattschutz nicht aktiv. Und was händisch nicht geht, kann man auch nicht per Makro machen.
<br />Richte die Gliederung und den Autofilter ein und verzichte auf den Blattschutz.
<br />Claus
<br />

Hallo Daniel,
<br />hast du das Passwort angepasst?
<br />Claus
<br />

Hallo Claus,
<br />Danke für deine Rückmeldung.
<br />Allerdings haben wir hier aneinander vorbei gesprochen.
<br />Diese Einstellung kenne ich.
<br />Ich versuche das Problem nochmal zu beschreiben.
<br />Mein anfägliches Problem konnte ich dank deiner ersten Antwort lösen.
<br />Allerdings funktioniert dies nur, wenn die Arbeitsmappe nicht freigegeben ist.
<br />Sobald ich den Code eingebe, dass Blatt schütze und die arbeitsmappe freigebe, kann ich nach dem erneuten Öffnen der Datei die gruppierten Zellen und Spalten über das "+" nicht mehr öffnen. Dann bekomme ich wieder die Nachricht, dass auf Grund des Blattschutzes diese Funktion nicht möglich ist.
<br />Grüße
<br />Daniel
<br />

Hallo Daniel,
<br />setze zuerst Gliederung und Filter auf TRUE und schütze danach erst das Blatt:
<br />

Sub Workbook_Open()

ActiveSheet.EnableOutlining = True 'für Gliederung

ActiveSheet.EnableAutoFilter = True 'für Autofilter

ActiveSheet.Protect userinterfaceonly:=True, Password:="mein Passwort"

End Sub

Claus
<br />

Hallo Claus,
<br />wie schon gesagt ist das komplettes Neuland für mich.
<br />Wann muss ich denn dann den VBA Code eingeben?
<br />Sobald ich diesen eingegeben habe, ist die Mappe ja automatisch auch blattgeschützt.
<br />meine Vorgehensweise lautet aktuell grob wie folgt.
<br />Ich habe meine Datei ohne VBA Code, ohne Blattschutz, ohne Freigabe
<br />Ich öffen den VB Editor - klicke links auf "Diese Arbeitsmappe" und gebe unter den Kategorien "Workbook" und "Open" deinen VBA Code ein.
<br />Wenn ich den Editor schließe, ist die Mappe schreibgeschützt.
<br />Anschließend aktiviere ich "Arbeitsmappe freigeben".
<br />Auch wenn ich den Blattschutz durch den VBA Code rausnehme und das gleiche nochmal manuell über "Blatt schützen" mache (mit Haken bei Autofilter und Sortierung) und anschließend freigebe, funktioniert es leider nicht. Bzw nur so lange, wie ich die Datei nicht schließe und wieder öffne.
<br />Für mich als Laien klingt das so, als würde der Code generell funktionieren aber beim erneuten Öffnen der Datei nicht richtig gestartet.
<br />Gruß
<br />Daniel
<br />