Lock TextBox From Selecting Or Copying Text But Allow Scroll

[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