Text in Shapes bearbeiten trotz Blattschutz

Question

Moin,

Ich habe mal wieder eine Hürde bei der VBA-Verwendung gefunden, die ich nicht alleine packe.

Ich habe ein Tabellenblatt, auf dem sehr viele Shapes sind. Diese sollen alle nicht werden oder anderweitig verändert werden können, also habe ich den Blattschutz verwendet.

Eine bestimmte Gruppe der Shapes (die ich auch problemlos mit VBA adressieren kann) hat einen Text und dieser Text muss hin und wieder vom Anwender! (also nicht per VBA!) geändert werden.

Selbst wenn ich diese Formen auf locked = False setze, lassen sie sich nur verschieben, der taext kann aber nicht bearbeitet werden, was diese lösung für mich unbrauchbar macht.

Bei ungeschütztem Tabellenblatt kann man mit Rechtsklick im Form formatieren Menü unter der Sperr-Option eine Eigenschaft "Text sperren" einstellen. Wenn ich die ausschalte kann ich trotz Blattschutz den Text bearbeiten, aber diese Eigenschaft erreiche ich nirgends über VBA. Ich habe lange gesucht. Der Macrorecorder zeichnet auch nichts auf, wenn ich diese Eigenschaft ändere, sodass ich nicht herausfinden kann, was ich umstellen muss.

Weiß vielleicht jemand, welche Eigenschaft in VBA geändert werden muss, um diesen Effekt zu erzielen?

Danke für eure Hilfe!

Answer 1

Hallo,

probiere es z.B. so:

ActiveSheet.Shapes("Rechteck 2").ControlFormat.LockedText = False

Claus

Answer 2

Boah Mega! Genau das wars!!!

Vielen Dank!