Tekst blokkeren uitzetten van tekstvak

[HenkGRIP]

Ik wil met een macro een tekstvak maken waarbij de tekst van een tekstvak niet geblokkeerd is.
Nu moet ik dit handmatig doen door bij Vorm opmaken, Eigenschappen en vervolgens het vinkje bij Tekst blokkeren weg te halen.
Kan dit niet in de macro worden opgenomen?

Onderstaande werkt niet in de macro:
ActiveSheet.Shapes("Melding").TextFrame2.TextRange.Locked = False

 

[OctaFish]

Doe er eens een voorbeeldje bij, zou ik zeggen. Overigens, als je de lijst met objectleden van het Shapes object doorneemt (simpel te doen vanuit de Help) zie je dat 'Locked' er niet bij staat. En een eigenschap die je niet aanwezig is.... kun je die wel of niet aanpassen?

 

[HenkGRIP]

Voorbeeld-bestand

Ik heb een voorbeeld toegevoegd.

Als je het bestand opent en je klikt op de groene button dan wordt er een tekstvlak toegevoegd.
Echter deze kun je niet wijzigen omdat het vinkje "Tekst blokkeren" niet is uit gevinkt.
In het tekstvlak die er al staat kun je de tekst wel bewerken omdat daar het vinkje is uitgezet (handmatig).
Ik zoek dus een oplossing waarbij dit vinkje wordt uitgezet in de macro.

Alvast bedankt

 

[gast0660]

Hoi,
Helpt dit u verder?

Sub Voeg_tekstvlak_toe()

ActiveSheet.Unprotect

ActiveWorkbook.ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 31.5, 22.5, 374.25, 80.25).Name = "Melding"

With ActiveWorkbook.ActiveSheet.Shapes("Melding")
    .Locked = True
    .TextFrame2.TextRange.Font.Bold = msoTrue
    .TextFrame2.VerticalAnchor = msoAnchorMiddle
    .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
    .TextFrame2.TextRange.Font.Size = 20
    .TextFrame2.TextRange.Characters.Text = "Hier komt tekst te staan die telkens kan variëren."
    .OnAction = "" 'afhankelijk van de tekst variëert de macro die er aan komt te hangen
    .Visible = True
    
End With

ActiveSheet.Protect [COLOR="#FF0000"]DrawingObjects:=False[/COLOR]
   
End Sub

 

[HenkGRIP]

Hallo gast0660,

Bedankt voor je reactie.
Echter dan zijn alle objecten te bewerken. (dus kan de gebruiker ook het tekstvlak en andere objecten verwijderen)
Alleen in het tekstvlak mag je de tekst bewerken. Niet het object zelf.

 

[gast0660]

Werkt zoiets voor U?

Sub Voeg_tekstvlak_toe()
 Dim sComment As String
ActiveSheet.Unprotect
sComment = InputBox("Vul hier de tekst in die telkens kan variëren!")
If sComment = "" Then
GoTo Quit
Else
ActiveWorkbook.ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 31.5, 22.5, 374.25, 80.25).Name = "Melding"
With ActiveWorkbook.ActiveSheet.Shapes("Melding")
    .TextFrame2.TextRange.Font.Bold = msoTrue
    .TextFrame2.VerticalAnchor = msoAnchorMiddle
    .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
    .TextFrame2.TextRange.Font.Size = 20
    .TextFrame2.TextRange.Characters.Text = sComment
    .OnAction = "" 'afhankelijk van de tekst variëert de macro die er aan komt te hangen
    .Visible = True
    .Locked = True
    End With
 End If
Quit:
ActiveSheet.Protect
End Sub

 

[HenkGRIP]

gast0660 , bedankt voor je reactie.
Ik kan nu nog steeds niet de tekst wijzigen zonder dat ik eerst de beveiliging van het werkblad afhaal. Het vinkje bij Tekst bokkeren staat dus nog steeds aan bij de eigenschappen van Vorm opmaken.
Ik wil dus graag dat vinkje uit hebben staan.

 

[gast0660]

Hoi Henk,

Ik wil dus graag dat vinkje uit hebben staan.

Ik weet niet of dat kan met VBA,althans ik weet niet hoe,maar ik denk eerder van niet.(ik weet natuurlijk ook niet alles)
Mischien helpt dit u verder?
In bijlage

 

[E v R]

Vanuit het shape-object in jouw macro:

With ActiveWorkbook.ActiveSheet.Shapes("Melding")
    ......
    .ControlFormat.LockedText = False
......

 

[HenkGRIP]

Hoi Eric,

Dit is inderdaad het commando die het vinkje weghaalt. Super!
Bedankt!
Ik zal de call als opgelost zetten.