Excel VBA宏执行.Unprotect时中断，继续运行却无异常的问题排查

问题根源分析 #

1. ActiveWorkbook依赖隐患：原代码直接依赖ActiveWorkbook，但复制工作表生成新工作簿时，Excel可能未完成新工作簿的初始化，导致ActiveWorkbook指向不稳定甚至误指向原工作簿，引发解除保护操作失败。调试时手动操作给了Excel足够的初始化时间，所以能正常执行。
2. Application.Ready无效：Application.Ready仅判断整个Excel应用是否就绪，而非新工作簿内的工作表是否加载完成，所以等待循环起不到预期作用。
3. DisplayAlerts行中断原因：修改后在Application.DisplayAlerts = False中断，大概率是此时ActiveWorkbook处于异常状态（比如新工作簿未完全创建/激活），代码执行上下文混乱导致设置属性时触发错误。

解决代码示例 #

直接引用新工作簿对象，配合重试机制确保工作表就绪：

Sub CopySheetsAndUnprotect()
    Dim newWB As Workbook
    Dim settingsWS As Worksheet
    Dim retryCount As Integer
    
    ' 复制指定工作表到新工作簿，根据实际复制逻辑调整
    ThisWorkbook.Worksheets(Array("SETTINGS", "其他需要复制的表")).Copy
    ' 直接将新工作簿赋值给变量，避免依赖ActiveWorkbook
    Set newWB = ActiveWorkbook
    Set settingsWS = newWB.Worksheets("SETTINGS")
    
    ' 重试解除保护，最多3次，每次间隔1秒
    retryCount = 0
    Do
        On Error Resume Next ' 临时忽略错误
        settingsWS.Unprotect ' 无密码情况下，直接执行Unprotect即可，无需提前判断
        On Error GoTo 0 ' 恢复错误处理
        
        ' 检查是否成功解除保护
        If Not settingsWS.ProtectContents Then Exit Do
        
        retryCount = retryCount + 1
        If retryCount >= 3 Then Exit Do
        Application.Wait Now + TimeValue("00:00:01")
    Loop
End Sub

关键优化点 #

• 避免ActiveWorkbook依赖：通过变量直接引用新工作簿，彻底解决工作簿指向错误的问题。
• 取消前置判断：无密码的普通保护下，直接执行Unprotect不会报错，无需提前判断ProtectContents，减少逻辑复杂度。
• 重试机制：通过短时间等待+重试，应对工作表未完全初始化的情况，比单纯等待更可靠。
• 恢复错误处理：临时忽略错误后及时恢复，避免后续代码的错误被隐藏。

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