excel - 检测(在 VBA 中)包含 Excel 实例的窗口何时变为事件状态

Question

当我在 Excel 中的窗口之间切换时，我可以看到在各个级别触发 WindowActivate 事件，但是当 excel 成为前台应用程序时有没有办法触发事件？如果我单击 Excel 并工作，例如在浏览器中运行一段时间，然后单击返回 Excel 窗口，我不会看到任何事件触发。有什么办法可以检测到吗？

我想刷新 VBA 应用程序的某些元素，因为有时我发现基于超文本功能的鼠标悬停功能失去了激活图表的能力。我可以通过取消保护和保护工作表，或者通过废弃并重新初始化对象的子集来修复它。我想在我正在寻找的事件上触发此操作。

我也可以通过 SendKeys 来做到这一点，但这并不好，因为它会由于 SendKeys 中记录的错误而清除键盘设置(例如滚动锁定)，并且它使得屏幕闪烁超出了我的预期。

由于代码将驻留在 VBA 中，我会将操作限制在特定的工作簿中。如果进入 Excel 实例窗口时另一个(被动)工作簿处于事件状态，则不会触发任何操作，并且当用户选择包含它的工作簿时，我可以使用 WorkbookActivate 事件刷新应用程序。

Answer 1

我相信 Excel 中没有直接提供此功能，因此请使用 Windows API。您可以使用 VBA 进行 win32 编程!

说明

可以使用win32 api函数SetWinEventHook让 Windows 向您报告某些事件。包括前台窗口变化时触发的EVENT_SYSTEM_FOREGROUND。在下面的示例中，我根据 Excel 的进程 ID 检查新前台窗口的进程 ID。这是一种简单的方法，但它会像主 Excel 窗口一样检测其他 Excel 窗口，例如 VBA 窗口。这可能是也可能不是您想要的行为，并且可以进行相应的更改。

使用 SetWinEventHook 时必须小心，因为您向它传递了回调函数。您在此回调函数中可以执行的操作受到限制，它存在于 VBA 的正常执行之外，并且其中的任何错误都会导致 Excel 以困惑且不可恢复的方式崩溃。

这就是我使用 Application.OnTime 来报告事件的原因。如果多个事件的触发速度比 Excel 和 VBA 更新更快，则不保证它们按顺序发生。但这样更安全。您还可以更新事件集合或数组，然后在 WinEventFunc 回调之外单独读回这些事件。

示例代码

要对此进行测试，请创建一个新模块并将此代码粘贴到其中。然后运行StartHook。 请记住在关闭 Excel 或修改代码之前运行 StopAllEventHooks!! 在生产代码中，您可能会将 StartEventHook 和 StopAllEventHooks 添加到 WorkBook_Open 和 WorkBook_BeforeClose 事件中，以确保它们在适当的时间运行。请记住，如果在 Hook 停止之前 WinEventFunc VBA 代码发生问题，Excel 将崩溃。这包括正在修改的代码或正在关闭的代码所在的工作簿。当 Hook 处于事件状态时，也不要按 VBA 中的停止按钮。停止按钮可以删除当前程序状态!

Option Explicit

Private Const EVENT_SYSTEM_FOREGROUND = &H3&
Private Const WINEVENT_OUTOFCONTEXT = 0

Private Declare Function SetWinEventHook Lib "user32.dll" (ByVal eventMin As Long, ByVal eventMax As Long, _
    ByVal hmodWinEventProc As Long, ByVal pfnWinEventProc As Long, ByVal idProcess As Long, _
    ByVal idThread As Long, ByVal dwFlags As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long

Private pRunningHandles As Collection

Public Function StartEventHook() As Long
  If pRunningHandles Is Nothing Then Set pRunningHandles = New Collection
  StartEventHook = SetWinEventHook(EVENT_SYSTEM_FOREGROUND, EVENT_SYSTEM_FOREGROUND, 0&, AddressOf WinEventFunc, 0, 0, WINEVENT_OUTOFCONTEXT)
  pRunningHandles.Add StartEventHook
End Function

Public Sub StopEventHook(lHook As Long)
  Dim LRet As Long
  If lHook = 0 Then Exit Sub
  
  LRet = UnhookWinEvent(lHook)
End Sub

Public Sub StartHook()
    StartEventHook
End Sub

Public Sub StopAllEventHooks()
  Dim vHook As Variant, lHook As Long
  For Each vHook In pRunningHandles
    lHook = vHook
    StopEventHook lHook
  Next vHook
End Sub

Public Function WinEventFunc(ByVal HookHandle As Long, ByVal LEvent As Long, _
                            ByVal hWnd As Long, ByVal idObject As Long, ByVal idChild As Long, _
                            ByVal idEventThread As Long, ByVal dwmsEventTime As Long) As Long
  'This function is a callback passed to the win32 api
  'We CANNOT throw an error or break. Bad things will happen.
  On Error Resume Next
  Dim thePID As Long
  
  If LEvent = EVENT_SYSTEM_FOREGROUND Then
    GetWindowThreadProcessId hWnd, thePID
    If thePID = GetCurrentProcessId Then
      Application.OnTime Now, "Event_GotFocus"
    Else
      Application.OnTime Now, "Event_LostFocus"
    End If
  End If
  
  On Error GoTo 0
End Function

Public Sub Event_GotFocus()
    Sheet1.[A1] = "Got Focus"
End Sub

Public Sub Event_LostFocus()
    Sheet1.[A1] = "Nope"
End Sub