Supportnet / Forum / Tabellenkalkulation
VBA/Makro Blattschutz für eine Spalte aufheben
Frage
Hallo Leute,
ich brauche da mal kurz eure Hilfe. Folgendes ist mein Problem: Ich habe ein Makro geschrieben, mit dem ich bestimmten Zellen Farben zuweisen kann. Am Anfang und am Ende jedes Unterprogramms steht ActiveSheet.(Un)-Protect "?????". Damit ist jede Zelle nicht mehr von Hand formatierbar, es muß immer erst der Blattschutz beseitigt werden. Ich möchte jetzt in die Tabelle eine komplette Spalte für Kommentare einfügen, diese muß von jedermann frei editierbar sein.
Wer kann mir da helfen. Welche Zusatz-Codezeile muß ich dazu noch eingeben?
Antwort 1 von M.O.
Hallo,
durch folgende Zeile wird bei Spalte G die Sperrung beim einem Blattschutz aufgehoben:
Noch ein kleiner Tipp zum Abschluss:
Oft hilft auch der Makro-Rekorder.
Gruß
M.O.
durch folgende Zeile wird bei Spalte G die Sperrung beim einem Blattschutz aufgehoben:
Columns("G:G").Locked = FalseNoch ein kleiner Tipp zum Abschluss:
Oft hilft auch der Makro-Rekorder.
Gruß
M.O.
Antwort 2 von Ulkiger
Hallo M.O.,
irgendwie klappt deine Lösung bei mir nicht!
Wo muß ich denn diese Zeile einfügen. Ich habe diese Zeile überall dort eingefügt, wo ein ActiveSheet.Protect erscheint. Aber trotzdem ist die Spalte nicht editierbar!
Gruß
irgendwie klappt deine Lösung bei mir nicht!
Wo muß ich denn diese Zeile einfügen. Ich habe diese Zeile überall dort eingefügt, wo ein ActiveSheet.Protect erscheint. Aber trotzdem ist die Spalte nicht editierbar!
Gruß
Antwort 3 von M.O.
Hallo Ulkiger,
du musst die Zeile nach der Zeile einfügen, in der der Blattschutz aufgehoben wird, also nach
Dann sollte es gehen.
Gruß
M.O.
du musst die Zeile nach der Zeile einfügen, in der der Blattschutz aufgehoben wird, also nach
ActiveSheet.UnprotectDann sollte es gehen.
Gruß
M.O.

