Lock TextBox From Selecting Or Copying Text But Allow Scroll

[r_know]

Hi,

I've require solution to above subject line with and without VBA while working on TextBox inserted through developer.

Thanks
R_Know

Lock Text for copy and allowed to Scroll.xlsm

[Excel Fox]

Can you please elaborate on what exactly are you hoping to do?

[r_know]

attached file, having textbox which having text, it has to be read with scroll function in that textbox.
But user does not allowed to copy text from text box and does not allowed to delete TextBox.

[r_know]

attached file, having textbox which having text, it has to be read with scroll function in that textbox.
But user does not allowed to copy text from text box and does not allowed to delete TextBox.

ANY SOLUTION PLS

[Excel Fox]

Rudimentary. But adding this code seems to be working

Private Sub TextBox1_GotFocus()


    ActiveCell.Select
    
End Sub

[Admin]

Put this code in Sheet1 module.

Option Explicit
Dim ClipBoard As MSForms.DataObject

Private Sub TextBox1_GotFocus()

    TextBox1.WordWrap = False
    TextBox1.WordWrap = True

End Sub

Private Sub TextBox1_LostFocus()
    
    Set ClipBoard = New MSForms.DataObject
    
'hope one of these will work :)
    Application.CutCopyMode = False
    ClipBoard.Clear
    ClipBoard.SetText ""
    ClipBoard.PutInClipboard
    
End Sub

[r_know]

Thanks Admin
But It is allowing to copy from textbox, good thing only it wrap it...

[Excel Fox]

Can you check the code I posted. Like I said, it is rudimentary, but seems to be working.

[Admin]

Please check whether it allows to paste.