|
Hallo Zusammen,
ich habe folgendes Problem: Ich habe mir eine selbstrechnende Tabelle erstellt. Nur einige Zellen sind ungeschützt. Sobald ich diese Zellen fülle, berechnet sich die Tabelle selbst. Damit die Formeln, die ich hinterlegt habe geschütz sind, möchte ich gerne das Blatt schützen. Gleichzeitig soll es aber weiterhin möglich sein, Objekte einzufügen, Zeilen und Spalten zu formatieren und bereites im Vorfeld gruppierte Daten über das + bzw. - Symbol ein- oder auszuklappen. Ich habe daher folgenden Code in Visual Basic hinterlegt:
Sub Workbook_Open()
ActiveSheet.Protect DrawingObjects:=True, _
AllowFormattingRows:=True, AllowFormattingColumns:=True, _
UserInterfaceOnly:=True
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Das Problem besteht nun darin, dass mein Tabellenblatt nicht geschützt ist, sobald ich die Excel-Datei schließe und sie dann erneut öffne. Zwar ist unter dem Reiter "Überprüfen" der Blattschutz aktiviert; dies hat jedoch keine Auswirkungen. Ich kann fleißig alle Formeln löschen und in der Tabelle rumspielen, als wäre überhaupt kein Schutz aktiviert. Drücke ich dann auf "Blattschutz aufheben" und im Anschluss direkt wider auf "Blattschutz aktivieren" erfüllt obiger Code seine Funktion und alles ist so, wie ich es mir wünsche. Allerdings nur solange, bis ich die Datei schließe und erneut öffne. Dann ist die Datei wieder ungeschützt, obwohl der Schutz eingentlich aktiviert ist.
Wie kann ich dieses Problem lösen?
Viele Grüße, Daniel
|