Lock TextBox From Selecting Or Copying Text But Allow Scroll

Hi,

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

Thanks
R_Know

Attachment 1831

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

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.

Quote:

---

Originally Posted by 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

Rudimentary. But adding this code seems to be working

Code:

---

Private Sub TextBox1_GotFocus()


    ActiveCell.Select
   
End Sub

---

Put this code in Sheet1 module.

Code:

---

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

---

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

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

Please check whether it allows to paste.