Code for Exception

[inactiveUser214710]

Hello everyone
I have a userform with several commdandbuttons and I use the code below to close all, when I give instrution for that.
But I need just one that must be open and not closed
How can i do for that exception.
Thank you

Sub resertFormClose()
Dim ctl
    For Each ctl In UserForm1.Controls
        
        If TypeOf ctl Is msforms.CommandButton Then
            ctl.Value = False
            ctl.BackColor = RGB(192, 192, 192)
            ctl.Enabled = False
            ctl.TabStop = True
        End If
    Next ctl
    
End Sub

 

[Yongle]

Try (amending the button name)...,

[COLOR=#333333]If TypeOf ctl Is msforms.CommandButton And ctrl.Name <> "CommandButton33" Then [/COLOR]

 

[inactiveUser214710]

Thank you for answer
I don't understand, sorry
I Have three commandbutton (cmd1;cmd2;cmd3 and cmd4).
cmd1 whose name is "Submit"
cmd2 ..................... "Clear"
cmd3 ..................... "Exit"
cmd4" .... ................."Month's Close"
When I click "cmd4" the module above close all, but I need cmd3 open to be exit of userform.
when you say (amending the button name), which name? cmd3 or "exit"?
Thank you

 

[Yongle]

but I need cmd3 open to be exit of userform

perhaps this...

Sub resertFormClose()
Dim ctl
    For Each ctl In UserForm1.Controls
        
        If TypeOf ctl Is msforms.CommandButton And ctrl.Name <> "[COLOR=#ff0000]cmd3[/COLOR]" Then 
            ctl.Value = False
            ctl.BackColor = RGB(192, 192, 192)
            ctl.Enabled = False
            ctl.TabStop = True
        End If
    Next ctl
    
End Sub

 

[inactiveUser214710]

hi
didn't resolte, sorry
there will be another way to do that, i don't know
thank you anyway

 

[Yongle]

Ah - a small mistake which perhaps you did not notice ...

Sub resertFormClose()
Dim ctl
    For Each ctl In UserForm1.Controls
        
        If TypeOf ctl Is msforms.CommandButton And [COLOR=#ff0000]ctl[/COLOR].Name <> "cmd3" Then 
            ctl.Value = False
            ctl.BackColor = RGB(192, 192, 192)
            ctl.Enabled = False
            ctl.TabStop = True
        End If
    Next ctl
    
End Sub

 

[inactiveUser214710]

Hi Yongle
Perfect!
Solved
The vba is very sensitive, a letter in wrong place "ZazaS", gives an error.
Now, it works.
Many Thanks for your help.
My sincere thanks
CG

 

[Yongle]

Thanks for the feedback