Release all buttons except the clicked ? How ?

[bufos]

Hi all,
I am using Excel Professional 2010
I have 12 buttons in a form with names like btn_Hos_... , I would like to make a method so as when I click on a button to disable the buttonand release all the others (in case which there is preesed button)

So, maybe I have to pass the name of the button to the method and release all the buttons except the parameter

Could you help me please how can I do this ?

Thanks in advance

 

[ParamRay]

Perhaps something along these lines?

Private Sub SwitchButtons(btn As ToggleButton)
  Dim ctl As Control
  For Each ctl In Me.Controls
    If TypeOf ctl Is ToggleButton Then
      If ctl Is btn Then
        ctl.Enabled = False
      Else
        ctl.Enabled = True
        ctl.Value = False
      End If
    End If
  Next ctl
End Sub


Private Sub ToggleButton1_Click()
  If ToggleButton1.Value Then Call SwitchButtons(ToggleButton1)
End Sub


Private Sub ToggleButton2_Click()
  If ToggleButton2.Value Then Call SwitchButtons(ToggleButton2)
End Sub


Private Sub ToggleButton3_Click()
  If ToggleButton3.Value Then Call SwitchButtons(ToggleButton3)
End Sub


Private Sub ToggleButton4_Click()
  If ToggleButton4.Value Then Call SwitchButtons(ToggleButton4)
End Sub


Private Sub ToggleButton5_Click()
  If ToggleButton5.Value Then Call SwitchButtons(ToggleButton5)
End Sub

...

 

[bufos]

Thanks a lot
I made something the following and I think that it works.

Private Sub ReleaseButtonsExceptClicked(ByRef cmdb As Object)
  Dim contr As Control
  
  ' loop through all control in user form
  For Each contr In Userform1.Controls
    ' check if control is type Command button
    If TypeName(contr) = "CommandButton" And contr.Name Like "btn_*" Then
        If contr.Name = cmdb.Name Then
            contr.Enabled = False
        Else
            contr.Enabled = True
        End If

    End If
    Next
End Sub