|
Disable Text Box
Hi All
I have a UserForm with 20 Text Boxes and some times TBox1,TBox2,TBox3, do not need information to be entered is it possible to disable these 3 TBoxes and the others to run as the code dictates. Any much appreciated Cheers -- Mully |
Hi Mully,
To disable the textbox, the enabled property can be set to False: Me.TextBox1.Enabled = False Alternatively, the textbox can be hidden: Me.TextBox1.Visible = False --- Regards, Norman "mully" wrote in message ... Hi All I have a UserForm with 20 Text Boxes and some times TBox1,TBox2,TBox3, do not need information to be entered is it possible to disable these 3 TBoxes and the others to run as the code dictates. Any much appreciated Cheers -- Mully |
Hi Norman
Thanks for quick response --- should have put this in 1st question -- could I place a check box next to the 3 text boxes and just click on it and the boxes would be greyed out. "Norman Jones" wrote: Hi Mully, To disable the textbox, the enabled property can be set to False: Me.TextBox1.Enabled = False Alternatively, the textbox can be hidden: Me.TextBox1.Visible = False --- Regards, Norman "mully" wrote in message ... Hi All I have a UserForm with 20 Text Boxes and some times TBox1,TBox2,TBox3, do not need information to be entered is it possible to disable these 3 TBoxes and the others to run as the code dictates. Any much appreciated Cheers -- Mully |
Hi Mully,
Private Sub CheckBox1_Click() Me.TextBox1.Enabled = Not Me.CheckBox1.Value End Sub --- Regards, Norman "mully" wrote in message ... Hi Norman Thanks for quick response --- should have put this in 1st question -- could I place a check box next to the 3 text boxes and just click on it and the boxes would be greyed out. "Norman Jones" wrote: Hi Mully, To disable the textbox, the enabled property can be set to False: Me.TextBox1.Enabled = False Alternatively, the textbox can be hidden: Me.TextBox1.Visible = False --- Regards, Norman "mully" wrote in message ... Hi All I have a UserForm with 20 Text Boxes and some times TBox1,TBox2,TBox3, do not need information to be entered is it possible to disable these 3 TBoxes and the others to run as the code dictates. Any much appreciated Cheers -- Mully |
You will need to put this bit of code:
TBox1.Enabled = False TBox2.Enabled=False .... .... TBox4.SetFocus Into the code where the decision to disable the Textboxes is made. The last line will give TBox4 the focus and should put the cursor into it. HTH Dean "mully" wrote in message ... Hi All I have a UserForm with 20 Text Boxes and some times TBox1,TBox2,TBox3, do not need information to be entered is it possible to disable these 3 TBoxes and the others to run as the code dictates. Any much appreciated Cheers -- Mully |
Hi Mully,
My last response was aimed at a single textbox. To disable / re-enable the three specified textboxes (say TextBox1, TextBox2 and TextBox3) in response to a checkbox (CheckBox1), try: '========================== Private Sub CheckBox1_Click() Me.TextBox1.Enabled = Not Me.CheckBox1.Value Me.TextBox2.Enabled = Not Me.CheckBox1.Value Me.TextBox3.Enabled = Not Me.CheckBox1.Value End Sub '<<========================== If you additionally want to apply / remove a grey background to the three textboxes, try instead: '========================== Private Sub CheckBox1_Click() With Me.TextBox1 <<========= CHANGE If Not Me.CheckBox1 Then .Enabled = True .BackColor = &H80000005 Else .Enabled = False .BackColor = &H80000000 End If End With With Me.TextBox2 <<========= CHANGE If Not Me.CheckBox1 Then .Enabled = True .BackColor = &H80000005 Else .Enabled = False .BackColor = &H80000000 End If End With With Me.TextBox3 <<========= CHANGE If Not Me.CheckBox1 Then .Enabled = True .BackColor = &H80000005 Else .Enabled = False .BackColor = &H80000000 End If End With End Sub '========================== Change the textbox names to accord with your needs. --- Regards, Norman "mully" wrote in message ... Hi Norman Thanks for quick response --- should have put this in 1st question -- could I place a check box next to the 3 text boxes and just click on it and the boxes would be greyed out. "Norman Jones" wrote: Hi Mully, To disable the textbox, the enabled property can be set to False: Me.TextBox1.Enabled = False Alternatively, the textbox can be hidden: Me.TextBox1.Visible = False --- Regards, Norman "mully" wrote in message ... Hi All I have a UserForm with 20 Text Boxes and some times TBox1,TBox2,TBox3, do not need information to be entered is it possible to disable these 3 TBoxes and the others to run as the code dictates. Any much appreciated Cheers -- Mully |
Hi Norman
Thanks worked perfectly first time Once again Thank you Cheers -- Mully "Norman Jones" wrote: Hi Mully, Private Sub CheckBox1_Click() Me.TextBox1.Enabled = Not Me.CheckBox1.Value End Sub --- Regards, Norman "mully" wrote in message ... Hi Norman Thanks for quick response --- should have put this in 1st question -- could I place a check box next to the 3 text boxes and just click on it and the boxes would be greyed out. "Norman Jones" wrote: Hi Mully, To disable the textbox, the enabled property can be set to False: Me.TextBox1.Enabled = False Alternatively, the textbox can be hidden: Me.TextBox1.Visible = False --- Regards, Norman "mully" wrote in message ... Hi All I have a UserForm with 20 Text Boxes and some times TBox1,TBox2,TBox3, do not need information to be entered is it possible to disable these 3 TBoxes and the others to run as the code dictates. Any much appreciated Cheers -- Mully |
Hi Norman & Dkso
Gentlemen used both sets of code the text boxes now disable and colour grey and the curser drops into the correct box ( Next in line ) absolutely brilliant and spot on. Thanks for all your help Cheers Mully "Norman Jones" wrote: Hi Mully, My last response was aimed at a single textbox. To disable / re-enable the three specified textboxes (say TextBox1, TextBox2 and TextBox3) in response to a checkbox (CheckBox1), try: '========================== Private Sub CheckBox1_Click() Me.TextBox1.Enabled = Not Me.CheckBox1.Value Me.TextBox2.Enabled = Not Me.CheckBox1.Value Me.TextBox3.Enabled = Not Me.CheckBox1.Value End Sub '<<========================== If you additionally want to apply / remove a grey background to the three textboxes, try instead: '========================== Private Sub CheckBox1_Click() With Me.TextBox1 <<========= CHANGE If Not Me.CheckBox1 Then .Enabled = True .BackColor = &H80000005 Else .Enabled = False .BackColor = &H80000000 End If End With With Me.TextBox2 <<========= CHANGE If Not Me.CheckBox1 Then .Enabled = True .BackColor = &H80000005 Else .Enabled = False .BackColor = &H80000000 End If End With With Me.TextBox3 <<========= CHANGE If Not Me.CheckBox1 Then .Enabled = True .BackColor = &H80000005 Else .Enabled = False .BackColor = &H80000000 End If End With End Sub '========================== Change the textbox names to accord with your needs. --- Regards, Norman "mully" wrote in message ... Hi Norman Thanks for quick response --- should have put this in 1st question -- could I place a check box next to the 3 text boxes and just click on it and the boxes would be greyed out. "Norman Jones" wrote: Hi Mully, To disable the textbox, the enabled property can be set to False: Me.TextBox1.Enabled = False Alternatively, the textbox can be hidden: Me.TextBox1.Visible = False --- Regards, Norman "mully" wrote in message ... Hi All I have a UserForm with 20 Text Boxes and some times TBox1,TBox2,TBox3, do not need information to be entered is it possible to disable these 3 TBoxes and the others to run as the code dictates. Any much appreciated Cheers -- Mully |
| All times are GMT +1. The time now is 10:06 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com