How to give wrap text to text box

[bhandari]

i have plenty of text boxes
names:
TEXT BOX NAME:JOG,BLA,GIO,IDEA,LOD,JOK
Those are IN SHEET NAME:"ID NO"

i Have attached cells to text boxes

how to assign macro for this text boxes?
word wrap=true
locKed=true

 

[Rick Rothstein]

i have plenty of text boxes
names:
TEXT BOX NAME:JOG,BLA,GIO,IDEA,LOD,JOK
Those are IN SHEET NAME:"ID NO"

i Have attached cells to text boxes

how to assign macro for this text boxes?
word wrap=true
locKed=true

Set the MultiLine property to True.

 

[bhandari]

Can I get complete code.iam a biginner to vba..
How to lock text box through code?
Can I use code in sheet or module?

 

[Rick Rothstein]

Can I get complete code.iam a biginner to vba..
How to lock text box through code?
Can I use code in sheet or module?

My suggestion requires no code... you are supposed to change that property in the Properties window for the TextBox (turn on Design Mode, right click the TextBox, select Properties from the popup window that appears).

 

[bhandari]

My suggestion requires no code... you are supposed to change that property in the Properties window for the TextBox (turn on Design Mode, right click the TextBox, select Properties from the popup window that appears).

its not a active x text box

its a shape

iam trying to use this code

Sub Cronical_Click()
With ActiveSheet.TextBoxes
        ActiveSheet.TextBoxes.Locked = True
        ActiveSheet.TextBoxes.LockedText = True
End With
With ActiveSheet
        .Range(Array("TBA,TBB,TBC,TBD,TBE,TBF,TBR,TBL")).Select
        .Selection.ShapeRange.TextFrames.WordWrap = msoFalse
        .TextBoxes.Protect = "loka"
End With
End Sub

its not working properly can u please fix this sir.

can we use this for multiple shapes?
or i need assign code separately?

 

[bhandari]

i found link from here

https://www.ozgrid.com/forum/forum/help-forums/excel-general/53070-lock-textbox-from-being-changed