Run-Time error '1004'求助：无法激活工作表及执行Range.Select等操作

1. 抛弃Select/Activate，直接操作对象 #

这是解决这类1004错误的核心思路，因为Select/Activate严重依赖Excel界面的交互状态，一旦界面锁定或状态异常就会失效。

比如你原本要清除单元格内容，不用先选再操作，直接写：

' 清除指定工作表的A1单元格内容，无需激活/选择
ThisWorkbook.Worksheets("你的工作表名称").Range("A1").ClearContents

如果要操作当前工作簿的活动表，也可以直接引用：

ThisWorkbook.ActiveSheet.Range("A1").ClearContents

所有涉及选择工作表、激活工作簿的操作，都可以替换成直接对象引用，完全绕开Select/Activate。

2. 排查界面锁定或权限问题 #

• 关闭后台悬浮对话框：如果有未关闭的数据验证弹窗、保护工作表输入框等，按Esc键强制关闭，这些对话框会锁定界面导致无法操作。
• 解除工作表保护：如果目标工作表被保护，且未允许编辑对应范围，先解除保护：

  ' 无密码则省略Password参数
  ThisWorkbook.Worksheets("你的工作表名称").Unprotect Password:="你的密码"
  

• 取消工作簿共享：共享状态下的工作簿会限制VBA操作，通过「文件>信息>保护工作簿>停止共享」取消共享后再测试。

3. 修复Excel应用程序异常 #

• 强制重启Excel：打开任务管理器，结束所有EXCEL.EXE进程，彻底关闭后重新打开文件，很多界面状态异常会随进程重启消失。
• 禁用加载项：加载项可能干扰VBA运行，通过「文件>选项>加载项>转到（COM加载项）」取消所有加载项勾选，重启Excel后测试。

4. 重置信任中心宏设置（极端情况） #

如果以上方法都无效，可能是宏设置阻止了操作：

• 进入「文件>选项>信任中心>信任中心设置>宏设置」，临时选择「启用所有宏」，重启Excel测试。测试完成后记得改回安全级别。

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