CommandBeforeExecute Event

Private Sub Form_CommandBeforeExecute(ByVal Command As Variant, ByVal Cancel As Object)

Command    The command that is going to be executed.

Cancel    Set the Value property of this object to True to cancel the command.

Remarks

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

Example

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

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

    strPrompt = "Cancel the command?"

    intResponse = MsgBox(strPrompt, vbYesNo)

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