Excel VBA: Spalten ausblenden mit Blattschutz

Question

Hallo und einen schönen guten Morgen,

habe ein Makro gefunden, was mir erlaubt, Spalten trotz aktivem Blattschutz
ein-und auszublenden.

Sub ProtectionOptions()
If AcitveSheet.Protection.AllowFormattingColumns = False Then
ActiveSheet.Protect AllowFormattingColumns:=True
End If
End Sub
Habe jetzt aber das Problem, dass dieses Makro nur beim Öffnen der Datei funktioniert, nicht aber,
wenn man auf die F9-Taste zwecks Aktualsierung der Daten
klickt. Wir haben die automatische Aktualisierung deaktiviert und
diese soll auch deaktiviert bleiben. Die Möglichkeit, bereits bei der Aktivierung
des Blattschutzes das Häckchen bei "Spalten formatieren" haben wir ebenfalls
gestet, aber das funktioniert nach Betätigung der F9-Taste ebenfalls nicht.

Kann mir jemand helfen, dieses Problem zu lösen. Soll heißen, auch nach
Aktualisierung der Daten durch die F9-Taste soll das Ein-bzw. Ausblenden
von Spalten möglich sein.
Es ist einfach zu umständlich, die Dateien immer wieder
abzuspeichern, zu schließen und dann wieder zu öffnen
um eventuell ausgeblendete Spalten wieder einzublenden.
_________________
Vielen Dank für die Hilfe.
Datjodie

Answer 1

Hallo Datjodie,

mit der F9-Taste kann kein Makro gestartet werden. Dazu musst Du in das VBA-Projekt des Tabellenblattes, in dem die Spalten aus- und eingeblendet werden sollen nachfolgenden Code einfügen:

Private Sub Worksheet_Calculate()
Call ProtectionOptions
End Sub

Erst durch diesen Code kannst Du das Makro mit der F9-Taste aufrufen. Aber auch nur, wenn etwas in dem Tabellenblatt aktualisiert werden kann, weil irgendwo etwas geändert wurde, was zu einer Aktualisierung beiträgt.

Alternativ dazu kannst Du das aber auch über einen Button realsieren.Schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 4 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]