"Greying" a UserForm text input box

[den1s]

Hi,

Hi,

Is there a way to "grey" out a text input box in VBA Excel and thus
prevent users from inputing text, until certain conditions are
fulfullied?

I am creating a UserForm and I would like to grey out the text input
box when a CheckBox is clicked. Not sure exactly how to do it though.

 

[Guest]

set the enabled property to false until ready

 

[Doug Glancy]

den1s,

Private Sub CheckBox1_Click()
With Me.TextBox1
.Enabled = Me.CheckBox1.Value
End With
End Sub

You can also used the Locked property of the Textbox. It has 2 advantages.
When you change the backcolor to "gray" the text stays black so it can be
read, and the user can copy the text for pasting elsewhere. Something to
play with at least:

Private Sub CheckBox1_Click()
With Me.TextBox1
.Locked = Not Me.CheckBox1.Value
If Not .Locked Then
.BackColor = vbWindowBackground
Else
.BackColor = vbButtonFace
End If
End With
End Sub

hth,

Doug