Disable ALL Buttons on Button Click in UserForm

**Nu2Java** · 10-05-2012, 02:46 PM

Hello... I have about 20 buttons on a form and I wondered if there is an easy way to disable all other buttons once any ONE button is clicked.

All I have for now is....

If Me.CommandButton1.Enabled Then
Me.CommandButton2.Disabled = True
Me.CommandButton3.Disabled = True
End If

Etc Etc ... I just want to click one and all the rest disable.
Thanks in advance!

**tigeravatar** · 10-05-2012, 02:54 PM

Nu2Java,

Create a private function in the userform code module:

Private Function DisableButtons(ByVal strEnable As String)
    
    Dim ctrl As Control
    
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "CommandButton" And ctrl.Name <> strEnable Then
            ctrl.Enabled = False
        End If
    Next ctrl
    
End Function

Then put this code in each of the command button click events:

Private Sub CommandButton1_Click()
    
    DisableButtons Me.ActiveControl.Name
    
End Sub

Private Sub CommandButton2_Click()
    
    DisableButtons Me.ActiveControl.Name
    
End Sub

Private Sub CommandButton3_Click()
    
    DisableButtons Me.ActiveControl.Name
    
End Sub