TexBox Woes

[Rang655]

I have a text box linked to a cell on a different tab. Eventually that tab will be hidden and password protected. The tab that has the text box is lock in properties, and locked in format controls. and the tab (worksheet) is protected with nothing selectable; however, when I click on the text in the text box I can change the text unless I'm in design mode. I can find any macros that would allow me to control the design mode. I can find anything that would allow me to change the font color if the text box is disabled. So how can I protect the text and/or make the fore color Black??? Anyone have any ideas?

 

[JLGWhiz]

Not sure exactly what you are looking for. This is one way, if the text box is on a userform. The code would go into the UserForm code module.

Private Sub UserForm_Initialize()
    With Me.TextBox1
        .Enabled = False
        .BackColor = &H800000
    End With
End Sub

If the text box is on the sheet, then the code could be put into the sheet module and renamed to eliminate the userform reference.

 

[Rang655]

I tried this code and it didn't work. I gave up and did it a different way without the text box. Thank you for you efforts anyway.