Make only PART of a textbox read only?

[swimmerhair]

Hey everyone,

I've used this site a lot and am looking for a particular problem that I can't seem to find an answer to. I have a textbox that I have in my userform and am looking to autopopulate the first line with the current date (Have no trouble doing this). I am also looking to make that string of text read-only/un-editable. Any suggestions?

Thanks in Advance

 

[Rick Rothstein]

I've used this site a lot and am looking for a particular problem that I can't seem to find an answer to. I have a textbox that I have in my userform and am looking to autopopulate the first line with the current date (Have no trouble doing this). I am also looking to make that string of text read-only/un-editable. Any suggestions?

At the moment, I am locked out from being able to place a TextBox on a user form (I keep getting an "Invalid argument" error when I try... I am researching the fix for the problem); however, this how it would be done for an ActiveX TextBox on a worksheet, the code should be similar if not exact...

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If TextBox1.SelStart < InStr(TextBox1.Text, vbLf) - 1 Then KeyCode = 0
End Sub

 

[Rick Rothstein]

At the moment, I am locked out from being able to place a TextBox on a user form (I keep getting an "Invalid argument" error when I try... I am researching the fix for the problem); however, this how it would be done for an ActiveX TextBox on a worksheet, the code should be similar if not exact...

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If TextBox1.SelStart < InStr(TextBox1.Text, vbLf) - 1 Then KeyCode = 0
End Sub

I finally got on a working computer... the above code is correct, however, it needs to be modified to let a person be able to arrow down off of the first line in case they accidentally arrow up to it (they can always click on a lower row to get off of it). Given that, use this event code for the TextBox (named TextBox1 for this example) and the user will not be able to type anything on the first line of text...

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If TextBox1.SelStart < InStr(TextBox1.Text, vbNewLine) And KeyCode <> 40 Then KeyCode = 0
End Sub

 

[swimmerhair]

Thank you Rick! Your code helped a lot, but on further trial and error (I had a specific amount of characters that could NOT be deleted) I came up with this solution:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'sub to make first line of text todays date as read-only
If (Textbox1.SelStart <= 10 And KeyCode = 8) = True Then
KeyCode = 0
End If
End Sub