How to disable all buttons in a userform?

[Montague26]

I have 20+buttons in a userform, how can I disable all buttons by a automatic sub?

Only buttons

 

[My Aswer Is This]

By buttons you mean:
Option Buttons
Toggle Buttons
Command Buttons
Spin Buttons
Is that what you mean?

 

[My Aswer Is This]

And when do you want this to happen? When you open the UserForm?
I'm not sure I understand your quote:"by a automatic sub"

 

[Andrew Poulsom]

You can loop through the Controls like this:

Private Sub UserForm_Initialize()
    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "CommandButton" Then
            Ctrl.Enabled = False
         End If
    Next Ctrl
End Sub

 

[My Aswer Is This]

With some help from Andrew. If you want to disable all "buttons" you can use this script:

Private Sub UserForm_Initialize()

    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "CommandButton" _
        Or TypeName(Ctrl) = "OptionButton" _
        Or TypeName(Ctrl) = "SpinButton" _
        Or TypeName(Ctrl) = "ToggleButton" Then
        Ctrl.Enabled = False
         End If
    Next Ctrl
End Sub

 

[Rick Rothstein]

With some help from Andrew. If you want to disable all "buttons" you can use this script:

Private Sub UserForm_Initialize()

    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "CommandButton" _
        Or TypeName(Ctrl) = "OptionButton" _
        Or TypeName(Ctrl) = "SpinButton" _
        Or TypeName(Ctrl) = "ToggleButton" Then
        Ctrl.Enabled = False
         End If
    Next Ctrl
End Sub

You should be able to do your code this way as well...

Private Sub UserForm_Initialize()
  Dim Ctrl As Control
  For Each Ctrl In Me.Controls
    If TypeName(Ctrl) Like "*Button" Then Ctrl.Enabled = False
  Next
End Sub

 

[Montague26]

Sorry, I mean CommandButton.

 

[Montague26]

With some help from Andrew. If you want to disable all "buttons" you can use this script:

Private Sub UserForm_Initialize()

    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "CommandButton" _
        Or TypeName(Ctrl) = "OptionButton" _
        Or TypeName(Ctrl) = "SpinButton" _
        Or TypeName(Ctrl) = "ToggleButton" Then
        Ctrl.Enabled = False
         End If
    Next Ctrl
End Sub

Thanks, I solve it.

 

[My Aswer Is This]

Glad you were able to read the script and modify it the way you wanted.

Thanks, I solve it.