CommandEnabled Event

Private Sub Form_CommandEnabled(ByVal Command As Variant, ByVal Enabled As Object)

Command    The command that has been verified as being enabled.

Enabled    Set the Value property of this object to False to disable the command.

Remarks

The OCCommandId, ChartCommandIdEnum, and PivotCommandId constants contain lists of the supported commands for each Web component.

Example

The following example demonstrates the syntax for a subroutine that traps the CommandEnabled event.

Private Sub Form_CommandEnabled( _
        ByVal Command As Variant, ByVal Enabled As Object)
   Dim intResponse As Integer
    Dim strPrompt As String

    strPrompt = "Disable the command?"

    intResponse = MsgBox(strPrompt, vbYesNo)

    If intResponse = vbYes Then
        Enabled.Value = False
    Else
        Enabled.Value = True
    End If
End Sub