Excel自动化，如何检测用户是否在Excel工作表中运行宏或单击“运行宏”CommandBarControl

VBA
Sub CheckMacroExecution()
    Dim macroExecuted As Boolean
    Dim runMacroButton As CommandBarControl
    
    '设置初始值为False
    macroExecuted = False
    
    '检查最近一次的操作是否是运行宏
    If Application.CommandBars.ActionControl.Caption = "Run Macro" Then
        macroExecuted = True
    End If
    
    '检查是否存在名为“Run Macro”的CommandBarControl
    On Error Resume Next
    Set runMacroButton = Application.CommandBars.FindControl(ID:=30003)
    On Error GoTo 0
    
    '如果找到了“Run Macro”按钮，则表示用户单击了该按钮
    If Not runMacroButton Is Nothing Then
        macroExecuted = True
    End If
    
    '显示结果
    If macroExecuted Then
        MsgBox "用户运行了宏或单击了运行宏按钮。"
    Else
        MsgBox "用户未运行宏或未单击运行宏按钮。"
    End If
End Sub
Sub ExampleMacro()
    '在这里编写你的宏代码
    MsgBox "这是一个示例宏。"
End Sub