text box validation needed

[VBABEGINER]

Dear Team,
I need validation text box, in a such way that user can only paste. No manual entry.
Can it be possible..
Answer = Yes, with MrExcel..!!

Pls suggest

 

[mikerickson]

Setting the .DragBehaviour to 1 will enable the paste ability.
You can prevent the user from typing into a text box with code like this.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub

 

[VBABEGINER]

Thanks..But want to add this condition too..apologies..I forgot to explain

Private Sub TxtCaseID_AfterUpdate()
If Len(TxtCaseID.Value) < 5 Then
MsgBox "Case id not less than 5 number"
End If
End Sub

Ok, I will keep both..

 

[mikerickson]

If you set the MaxLength of the textbox to 5, it will truncate any other characters that are pasted into it.

Also, I can't help thinking that you might prefer a ComboBox. If you are copy/pasting from a list of Case IDs, it might be easier to use a ComboBox (or Listbox) with its entries drawn from the same source as the copy/paste. Save the user having to c/p. Save you having to tweek a TextBox.

 

[VBABEGINER]

Thanks for the idea, but its the manager requirement to copy paste only.. The code number will be in another application. from there copy-paste activity will be there.