Win10下Excel 365执行工作簿打开宏后首次重启窗口失焦求助

方案1：强制将Excel窗口置于前台（推荐） #

通过Windows API强制让Excel窗口获取焦点，解决MsgBox关闭后Explorer抢占窗口的问题：

Option Explicit
' 适配64位Office的API声明
Private Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As Long

Private Sub Workbook_Open()
    Sheet1.Activate
    Sheet1.Range("G10").Select
    
    MsgBox "Remember to update Production Volume"
    
    ' 强制将Excel窗口置顶并激活
    SetForegroundWindow Application.hwnd
    Application.Activate
End Sub

说明：SetForegroundWindow是Windows系统API，能直接将指定窗口设置为前台窗口，配合Application.Activate可以确保Excel窗口保持在最上层，覆盖Explorer窗口。

方案2：延迟执行宏操作 #

利用Application.OnTime延迟执行宏逻辑，给Excel足够时间完成窗口初始化，避免Explorer的焦点抢占：

Option Explicit

Private Sub Workbook_Open()
    ' 延迟0.5秒执行后续操作，等待Excel窗口完全初始化
    Application.OnTime Now + TimeValue("00:00:00.5"), "PostOpenActions"
End Sub

' 单独存放打开后的操作逻辑
Private Sub PostOpenActions()
    Sheet1.Activate
    Sheet1.Range("G10").Select
    
    MsgBox "Remember to update Production Volume"
    
    ' 可选：再次确保Excel窗口激活
    Application.Activate
End Sub

说明：重启后首次启动Excel时，系统需要加载Office组件和初始化窗口，延迟执行能让这个过程完成后再执行界面操作，避免焦点异常。

额外排查步骤 #

• 暂时重命名Personal.xlsb为Personal.xlsb.bak，重启后测试是否问题消失，排除个人宏工作簿的潜在干扰（即使无自动宏，某些加载项可能间接影响）。
• 检查Excel的“选项-高级-显示”中是否勾选了“在任务栏中显示所有窗口”，确保Excel窗口能正确在任务栏识别。

内容的提问来源于stack exchange，提问作者H P C