如何在 VBA 代码运行时禁用功能区

Question

I need to cancel button clicks on a Custom Ribbon if code is already running.

The problem: although I can disable the button, clicks are still 'registered' and even though disabled, the corresponding code runs once for each button click.

Public Sub OnActionButton(control As IRibbonControl)

    ' The following approach fails to prevent code from running
    If Not globalEnabled Then Exit Sub

    ' The following approach fails to prevent code from running
    Dim goodToGo as Boolean
    GetEnabled control, goodToGo
    If Not goodToGo Then Exit Sub


    ' *********************************************************
    ' Code Below Here Should NOT Run If Button Was Clicked 
    ' While globalEnabled = False (i.e. code already running)
    ' *********************************************************

    ' Disable the Ribbon
    globalEnabled = False
    RibbonInvalidate

    Select Case control.id
        Case "btnID"
            ' doSomething
    End Select

    ' Re-enable the ribbon
    globalEnabled = True
    RibbonInvalidate

End Sub

Edit: For what its worth, this is how I disable the button:

Public Sub GetEnabled(control As IRibbonControl, ByRef enabled)
' Called by RibbonInvalidate
    Select Case control.id
        Case "btnID"
            enabled = globalEnabled 
    End Select 
End Sub

I can imagine that the first click runs as expected, the second click (which is made while the code corresponding to the first click is running) is 'queued' until the first click is completed. At that time globalEnabled is True again so the checks are ineffective.

I guess I could hide the custom ribbon tab (or replace it with a dummy tab) - but is that really necessary?

Is there an elegant way to cancel a button press?

---

Edit:

I could add a bunch of doEvents to the code, but slows things down too much.

Edit2:

If I display a message box during code execution then, for some reason, it seems that things work as expected...

In fact... if I display a message box then I don't even need the early exit logic - so weird!

Answer 1

This works, main thing was adding doEvents (or a message box) at the end.

Public Sub OnActionButton(control As IRibbonControl)

    ' Disable the Ribbon
    globalEnabled = False
    RibbonInvalidate

    Select Case control.id
        Case "btnID"
            ' doSomething
    End Select

    ' Re-enable the ribbon
    doEvents                     ' <-- Adding this fixed the issue for me
    ' msgbox "finished"          ' <-- also works, but pretty annoying ;-)
    globalEnabled = True
    RibbonInvalidate

End Sub

Answer 2

Im late to the party, but are you declaring GlobalEnabled as a global variable? Because from my understanding and testing (on a similar problem) if it is not explicitly declared as global, each time the ribbon button is clicked, a local variable of GlobalEnabled is created rather than using the value set in the prior run of the macro.