Can I make all TextBoxes on a particular UserForm Visible = False?

[Michael Island]

Hi I have a UserForm with around 140 TextBoxes and I want them all to have the property Visible = False. To avoid me the labour of doing this one by one, can I do this in a faster, easier way?

[Vraag en antwoord]

For Each ct In Me.Controls
    If TypeName(ct) = "TextBox" Then ct.Visible = False
  Next ct

[Michael Island]

This will only do the TextBoxes on that UserForm right?

[Vraag en antwoord]

Can you try anyway?

[Michael Island]

ok will not save it until it works then.

[Michael Island]

It gave me Error 'Invalid Outside Procedure'

[Vraag en antwoord]

Then place the file with how you applied it.

[Rick Rothstein]

In addition to Vraag en antwoord's request in Message #7, can you also tell us when you need this functionality... only when the UserForm first displays or do you need to make the TextBoxes invisible at some point later on after the UserForm has been up for a while?

[Sintek]

It gave me Error 'Invalid Outside Procedure'

I assume you did not put it in a procedure \ sub

Private Sub CommandButton1_Click()
For Each ct In Me.Controls
    If TypeName(ct) = "TextBox" Then ct.Visible = False
Next ct
End Sub

[Michael Island]

No need as I figured out how to do it. As I go through the form I know which TextBoxes I need, so once I have prepared the Subs I will have all the IextBoxes I need to make Enabled = False and Visible = False. So I will create a Sub like so:

Sub EntryField_DisEnabler()
UserForm2.TextBox8.Enabled = False
UserForm2.TextBox8.Visible = False
etc...
End Sub

Then I run it before I make UserForm2 appear like:

EntryField_DisEnabler
UserForm2.Show

This should work fine right?

[Rick Rothstein]

Then I run it before I make UserForm2 appear like:

EntryField_DisEnabler
UserForm2.Show

If this is the only time you need to set all (or most) of the TextBoxes to Enabled equal False and Visible equal False, then you do not need code to do this. Select (Shift click) all of the TextBoxes on the UserForm that you want to have this setting when the UserForm first appears, then look at the Properties Window and change the Enabled property to False and then the Visible property to False. Now unselect those TextBoxes (just click a blank section of the UserForm) and then save the workbook. Now when you show that UserForm, those TextBoxes will automatically be disabled and invisible.

[Michael Island]

sintek can we make that Sub only affect UserForm2 ? Run from UserForm1 ? And to also Enabled = False for each TextBox ?

[Vraag en antwoord]

May only Sintek respond?

Sub EntryField_DisEnabler()
  For Each ct In Userform2.Controls
    If TypeName(ct) = "TextBox" Then
      ct.Visible = False
      ct.Enabled = False
    End If
  Next ct
End Sub

[Michael Island]

This works well for my needs

[Rick Rothstein]

This works well for my needs

I am curious... what works well, the coded or non-coded solution (we cannot tell who you are replying to)?