how to protect text box ?

[bhandari]

is it possible to protect multiple Text boxes in sheet without assigning macro?

 

[Rick Rothstein]

is it possible to protect multiple Text boxes in sheet without assigning macro?

What do you mean by "protect"?

 

[bhandari]

[/COLOR][COLOR=#333333][FONT=Verdana]Code:[/FONT][/COLOR]
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
[COLOR=#333333][CODE] [/COLOR][COLOR=#333333]
Issue with 2nd statement it's not working properly
With activesheet
1st statement working fine..

Any modification in this code?[/COLOR]