Blatzzschutz aufheben - Marko ausführen - Blattsch
14.10.2015 12:18:02
Eric
folgende Situation.
Ich habe eine Matrix erstellt in der verschiedene Benutzer für Ihren Bereich Daten einpflegen können.
Jeder Bereich ist über "Benutzer dürfen Bereiche bearbeiten" mit einem anderen Kennwort geschütz.
Da die Tabelle in Summe 257 Spalten hat, sind diese Spalten zwecks der Übersichtlichkeit gruppiert.
Da die Erfahrung gezeigt hat, dass Formeln in einer Tabelle "zerstört" werden wenn mehrere Nutzer darin arbeiten, habe ich über o.g. Funktion einen Kompletten Blattschutz.
Nun zu meinem Problem:
Ist der Blattschutz aktiviert, kann ich die Gruppierungen nicht öffen. Deswegen habe ich einen Marko erstellt der folgendermaßen aussieht.
Sub Workbook_Open()
ActiveSheet.EnableOutlining = True
ActiveSheet.EnableAutoFilter = True
End Sub
Der Marko macht, was er machen soll. Nur muss man logischerweise das Passwort des Gesamtblattschutzes eingeben.
Der Blattschutz ist dann zwar noch aktiv, aber nicht mehr Passwort geschütz.
Nach einiger Suche habe ich dann folgnden Makro gefunden, der funktioniert aber nicht...:
Sub Workbook_Open()
ActiveSheet.Unprotect Password:="Kennwort"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
ActiveSheet.Protect Password:="Kennwort"
End Sub
Nur die Frage nach dem Warum, bzw. alternativen Möglichkeiten.
Kurz zusammengefasst brauche ich eine Möglichkeit Gruppierungen zu öffen und einen aktive Blattschutz (inkl. Passwortschutz) zu haben.
Ich hoffe das dass mein Anliegen einigermaßen Verständlich ist.
Beste Grüße aus Nürnberg,
Eric