运行宏时出现Run-time error 1004，求助Excel VBA批量循环工作表问题

首先，咱们先揪出问题根源：你的代码里用了ws.Activate切换工作表，然后调用WeekUpdate——但WeekUpdate大概率是依赖当前激活的工作表来操作的，这种写法不仅慢，还特别容易触发1004错误（比如遇到隐藏/保护的工作表、切换时对象引用混乱）。另外频繁激活工作表本身就会拖慢运行速度，完全没必要。

第一步：重构代码，彻底抛弃Activate/Select #

VBA的核心原则是直接操作对象，不要依赖激活/选择。咱们把WeekUpdate改成接受一个工作表参数，让它直接操作指定的工作表，而不是盯着ActiveSheet。

1. 修改主循环宏DoSheets

Sub DoSheets()
    Dim ws As Worksheet
    Dim starting_ws As Worksheet
    Set starting_ws = ActiveSheet
    
    ' 先开启效率优化：关闭屏幕刷新和事件触发
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 加个错误捕获，确保出问题时能恢复Excel设置
    On Error GoTo Cleanup
    
    For Each ws In ThisWorkbook.Worksheets
        ' 直接把当前工作表对象传给WeekUpdate，不用激活
        Call WeekUpdate(ws)
        ws.Cells(1, 1) = 1
    Next

Cleanup:
    ' 不管成功还是失败，都恢复Excel的正常设置
    starting_ws.Activate
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    ' 如果有错误，给个提示
    If Err.Number <> 0 Then
        MsgBox "处理出错啦：" & Err.Description, vbExclamation
    End If
End Sub

2. 修改WeekUpdate，让它接受工作表参数

假设你原来的WeekUpdate是这样（依赖ActiveSheet）：

Sub WeekUpdate()
    ' 原来的代码，比如操作当前激活表的单元格
    ActiveSheet.Range("B2") = "本周更新"
    ActiveSheet.Cells(5, 3).Formula = "=SUM(C2:C4)"
    ' 其他操作...
End Sub

现在把它改成明确操作传入的工作表对象：

' 新增参数targetWs，代表要处理的工作表
Sub WeekUpdate(targetWs As Worksheet)
    ' 所有操作都加上targetWs前缀，彻底脱离ActiveSheet
    targetWs.Range("B2") = "本周更新"
    targetWs.Cells(5, 3).Formula = "=SUM(C2:C4)"
    ' 把你原来代码里的ActiveSheet全部替换成targetWs，包括Rows/Columns/Names等
End Sub

为什么原来的代码会出1004错误？ #

1. 依赖ActiveSheet的风险：当循环切换工作表时，可能某个工作表是隐藏的、被保护的，导致ws.Activate失败；或者WeekUpdate运行到一半，Excel的激活状态意外改变，引发对象引用错误。
2. 频繁刷新开销：每次激活工作表都会触发Excel的屏幕刷新，不仅慢，还容易在刷新过程中出现对象锁定问题。

额外的效率和稳定性提示 #

• 如果不需要处理隐藏工作表，可以在循环里加判断：

  If ws.Visible = xlVisible Then
      Call WeekUpdate(ws)
      ws.Cells(1, 1) = 1
  End If
  

• 如果工作表有保护，需要先解锁再处理：

  ' 循环内添加
  ws.Unprotect Password:="你的密码" ' 如果没密码就去掉Password参数
  Call WeekUpdate(ws)
  ws.Cells(1, 1) = 1
  ws.Protect Password:="你的密码"
  

• 确保WeekUpdate里所有单元格/范围引用都加上targetWs前缀，哪怕是很小的操作，遗漏一个都可能导致错误。

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