Text in Shape ist unbearbeitbar
22.08.2020 09:05:16
Harald
Nachstehend der Code, der leider nicht das gewünschte Ergebnis liefert:
Sub Legende_bearbeitbar_einfügen()
ActiveSheet.Unprotect 'Das Blatt muss in meiner Anwendung geschützt _
sein
Let AktiverUser = "hk"
Let KTS = "2020-08-22"
ActiveSheet.Shapes.AddShape(msoShapeRectangularCallout, 100, 100, 136.5, 65.5).Select
Selection.ShapeRange.Name = KTS
Selection.Locked = msoFalse
Selection.Placement = xlMove
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = AktiverUser & ":"
ActiveSheet.Protect
End Sub
Nach meinem Verständnis sollte man den Text in diesem Shape jetzt - trotzdem das Blatt gesperrt ist - bearbeiten können.Wenn ich den gleichen Prozess nicht per Makro sondern händisch mittels des Excel-Menüs eingebe (und bei den Eigenschaften des Shapes "Objekt sperren" und "Text sperren" deaktiviere), dann funktioniert es ja auch.
Was fehlt in meinem Makro?
"Selection.Locked = msoFalse" habe ich ja gesetzt. Ich habe in den VBA-Tutorials nichts gefunden, was explizit ein "Unlock" der Texteingabe bewirken würde :-(
DANKE im Voraus!
Harald
P.S.: Ein generelles Freigeben der Shapes für dieses Blatt geht leider nicht, weil alle anderen Shapes darauf gesperrt bleiben müssen!