Word VBA宏运行时错误4605：Protect方法不可用问题求助

问题分析 #

原代码尝试记录文档保护类型并取消保护，但触发4605错误的核心原因有两个：

• 部分文档受密码保护，仅通过ProtectionType判断后直接调用.Protect wdNoProtection会因缺少密码参数失败
• 无错误捕获机制，单个文件出错直接终止整个批量任务

修复方案 #

1. 优化取消保护逻辑 #

针对受保护文档，先尝试无密码取消保护，失败则放弃处理该文件；同时确保保护状态判断的准确性。

2. 添加单文件错误捕获 #

在每个文件的处理流程外包裹错误捕获，出错时自动跳过当前文件，继续处理下一个。

修改后的完整代码 #

Sub UpdateDocuments(oFolder As String)
    Dim strFile As String, wdDoc As Document, Rng As Range
    Dim Prot As Long
    Const Fnd As String = "Signature": Const Rep As String = "***Electronically Signed***"
    
    strFile = Dir(oFolder & "\*.rtf", vbNormal)
    While strFile <> ""
        On Error GoTo FileError ' 开启单文件错误捕获
        Set wdDoc = Documents.Open(FileName:=oFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
        
        With wdDoc
            ' 记录当前保护类型
            Prot = .ProtectionType
            ' 尝试取消保护：先处理无密码的情况，失败则跳过
            If Prot <> wdNoProtection Then
                On Error Resume Next ' 临时忽略取消保护的错误
                .Unprotect ' 优先用Unprotect方法更直观，替代Protect wdNoProtection
                On Error GoTo FileError ' 恢复原错误捕获逻辑
                ' 检查取消保护是否成功，若仍受保护则直接跳过
                If .ProtectionType <> wdNoProtection Then
                    .Close SaveChanges:=False
                    GoTo NextFile
                End If
            End If
            
            ' 处理正文等区域（跳过页眉页脚）
            For Each Rng In .StoryRanges
                Select Case Rng.StoryType
                    Case wdPrimaryFooterStory, wdFirstPageFooterStory, wdEvenPagesFooterStory, _
                         wdPrimaryHeaderStory, wdFirstPageHeaderStory, wdEvenPagesHeaderStory
                    Case Else
                        Call RngFndRep(Rng, Fnd, Rep)
                End Select
            Next
            
            ' 恢复原保护状态
            If Prot <> wdNoProtection Then
                On Error Resume Next ' 忽略恢复保护的可能错误
                .Protect Prot
                On Error GoTo FileError
            End If
            
            .Close SaveChanges:=True
        End With
        
NextFile:
        strFile = Dir()
        On Error GoTo 0 ' 重置错误捕获
        Wend
    
    Set wdDoc = Nothing
    Exit Sub

' 错误处理分支：关闭当前文档，继续下一个
FileError:
    If Not wdDoc Is Nothing Then
        wdDoc.Close SaveChanges:=False ' 出错时不保存，避免损坏文档
    End If
    Resume NextFile
End Sub

关键改动说明 #

• 用.Unprotect替代.Protect wdNoProtection：取消保护的标准方法更清晰，避免混淆保护类型设置逻辑
• 临时错误捕获：在取消保护和恢复保护时添加On Error Resume Next，处理密码保护等无法处理的情况
• 全局单文件错误捕获：FileError分支确保单个文件出错时自动关闭并跳过，不中断整个批量任务
• 增加保护状态二次检查：取消保护后再次确认状态，避免因密码保护导致的取消失败

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