VBA/Makro Blattschutz für eine Spalte aufheben
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 schreiben
Antwort 1 von M.O. vom 10.04.2020, 14:17 Options
Hallo,
durch folgende Zeile wird bei Spalte G die Sperrung beim einem Blattschutz aufgehoben:
Columns("G:G").Locked = False
Noch ein kleiner Tipp zum Abschluss:
Oft hilft auch der Makro-Rekorder.
Gruß
M.O.
Antwort 2 von Ulkiger vom 10.04.2020, 15:16 Options
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ß
Antwort 3 von M.O. vom 10.04.2020, 15:20 Options
Hallo Ulkiger,
du musst die Zeile nach der Zeile einfügen, in der der Blattschutz aufgehoben wird, also nach
ActiveSheet.Unprotect
Dann sollte es gehen.
Gruß
M.O.