Enable All Command button if it's disabled in a user form excel VBA

Question

I am trying to check all command button in a user form for enabled state and if state is false then enabling it. I have tried this code but runs without error but changes nothing where I manually disable button. It suppose to enable them. Would you please check the code. I get the code from this page https://stackoverflow.com/questions/49050223/vba-loop-through-buttons-on-userform

Sub form_reset()
    Dim ctrl1 As Control
        For Each ctrl1 In frmview.Controls
            If TypeName(ctrl1) = "commandbutton" Then
                Dim cmdbtn As CommandButton
                Set cmdbtn = ctrl
                If cmdbtn.Enabled = False Then
                    cmdbtn.Enabled = True
                End If
            End If
         Next
         frmview.Show

YasserKhalil · Accepted Answer · 2021-08-28 12:08:28Z

0

Try this code

Sub Form_Reset()
    Dim ctrl As Control
    For Each ctrl In frmview.Controls
        If TypeName(ctrl) = "CommandButton" Then ctrl.Enabled = True
    Next ctrl
    frmview.Show
End Sub

answered Aug 28, 2021 at 12:08

YasserKhalil

9,60813 gold badges62 silver badges135 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

YasserKhalil Over a year ago

Yes, I have checked the code twice before I posted it. I ran the code from a standard module.

Deb Over a year ago

Yes you are right, thanks for the answer, really appreciate your efforts also apologize for my comments. Thanks a lot.

Deb · Accepted Answer · 2021-08-28 11:53:45Z

0

Ok I have figure it out the problem with this code is it only work the button names like btn1, btn2 like. It will not checking the type of control thus making no changes. I was thinking of deleting this post but then think this might save someones time.

Sub form_reset()
Dim ctrl1 As Control
Dim cmdbtn As msforms.CommandButton
    For Each ctrl1 In frmview.Controls
        If TypeOf ctrl1 Is msforms.CommandButton Then
            Set cmdbtn = ctrl1
            If cmdbtn.Enabled = False Then
                cmdbtn.Enabled = True
            End If
        End If
     Next
     frmview.Show

End Sub

answered Aug 28, 2021 at 11:53

Deb

1311 gold badge2 silver badges12 bronze badges

Collectives™ on Stack Overflow

Enable All Command button if it's disabled in a user form excel VBA

2 Answers 2

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related