Excel 2016可复现问题求助：自定义应用2010正常2016异常

我之前帮不少开发者处理过从Excel 2010迁移到2016时的这类焦点失效问题，核心根源在于Office 2016对窗口管理、UI线程优先级的逻辑调整，尤其是自定义表单与Excel主窗口的交互规则变严格了。结合你的应用场景，给你几个针对性的排查和修复方案：

1. 优化VBA的工作簿激活逻辑 #

在Excel 2010里，Workbook.Activate通常就能让目标工作簿获得焦点，但2016里因为表单模态性和SDI模式的影响，单纯的激活调用可能不生效。试试在按钮点击事件里加入更强制的焦点切换代码：

Private Sub btnSelectTargetRange_Click()
    ' 替换成你存储的用户选中的工作簿对象
    Dim targetWB As Workbook
    Set targetWB = YourSelectedWorkbookVariable ' 这里替换成你的实际变量
    
    ' 先激活目标工作簿
    targetWB.Activate
    ' 强制将Excel主窗口带到系统前台（绕过表单的焦点阻塞）
    AppActivate Application.Caption
    ' 可选：加1秒延迟，确保UI线程完成焦点切换（应对2016的UI响应延迟）
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 接下来执行区域选择逻辑
    Dim selectedRange As Range
    On Error Resume Next ' 处理用户取消选择的情况
    Set selectedRange = Application.InputBox("请选择对应项目的单元格区域", Type:=8)
    On Error GoTo 0
    
    ' 后续处理选中区域的代码...
End Sub

这个方案的核心是用AppActivate直接触发系统级的窗口激活，绕过Excel 2016对表单焦点的强限制。

2. 调整自定义表单的显示模式 #

如果你的应用用的是模态表单（UserForm.Show vbModal），在2016里它会完全抢占所有操作焦点，导致无法激活Excel主窗口。可以临时隐藏表单再激活工作簿，完成选择后重新显示：

Private Sub btnSelectRange_Click()
    ' 临时隐藏表单，释放焦点给Excel主窗口
    Me.Hide
    
    ' 激活目标工作簿并切换焦点
    YourSelectedWorkbook.Activate
    AppActivate Application.Caption
    
    ' 让用户选择区域
    Dim userRange As Range
    On Error Resume Next
    Set userRange = Application.InputBox("请选择单元格区域", Type:=8)
    On Error GoTo 0
    
    ' 重新显示模态表单
    Me.Show vbModal
    
    ' 处理选中区域的逻辑...
End Sub

这种方式彻底避开了模态表单的焦点阻塞问题，是2016环境下比较可靠的做法。

3. 切换回MDI模式（关闭SDI） #

Excel 2016默认启用单文档界面（SDI），每个工作簿都是独立的系统窗口，这和2010的多文档界面（MDI）差异极大，很多旧的激活逻辑在SDI下会失效。可以尝试关闭SDI：

• 打开Excel 2016，点击「文件」>「选项」>「高级」
• 找到「显示」分类，取消勾选「在单独的窗口中打开每个工作簿」
• 重启Excel后测试你的应用

切换回MDI模式后，工作簿的激活逻辑会和2010基本一致，能快速解决兼容性问题。

4. 检查信任中心的权限设置 #

Excel 2016的安全限制比2010更严格，可能阻止了你的应用对窗口的操作：

• 点击「文件」>「选项」>「信任中心」>「信任中心设置」
• 确认「宏设置」允许你的自定义宏运行（建议设置为「启用所有宏（不推荐；可能会运行有潜在危险的代码）」临时测试）
• 将你的应用所在文件夹添加到「受信任位置」，避免被权限限制

内容的提问来源于stack exchange，提问作者Gaz