非活动工作表单元格选择更改：解除保护后激活失效及无激活方案求助

问题原因 #

解除受保护的非活动工作表时，Excel的UI状态同步在ScreenUpdating = False的情况下会出现延迟。批量执行代码时，CurrentWorksheet.Activate的指令被积压，无法及时触发界面更新；而分步调试时每一步都有UI刷新，所以状态切换正常。未受保护的工作表执行保护操作时不会触发这种UI同步延迟，因此流程能正常运行。

最优方案：无需激活工作表直接设置选中区域 #

Excel内部通过隐藏名称_xlfn._XFD_Selection记录每个工作表的选中区域，直接修改这个名称就能指定非活动工作表的高亮选中单元格，完全不用切换激活状态，从根源避免激活状态异常问题。

代码示例：

' 解除工作表保护
NonActiveWorksheet.Unprotect
' 设置非活动工作表的选中区域为A1（可替换为任意单元格/区域）
NonActiveWorksheet.Range("A1").Name = "_xlfn._XFD_Selection"
' 如需重新保护工作表，取消下面注释
' NonActiveWorksheet.Protect

修复现有代码的方案 #

如果要保留激活工作表的逻辑，可以在激活原工作表后添加DoEvents强制Excel处理界面事件，确保激活状态正确同步：

Set CurrentWorksheet = ActiveSheet
Application.ScreenUpdating = False

NonActiveWorksheet.Unprotect
NonActiveWorksheet.Activate
NonActiveWorksheet.Cells(1, 1).Select

CurrentWorksheet.Activate
DoEvents ' 强制处理UI事件，确保激活状态切换

Application.ScreenUpdating = True

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