如何在打开前检查Excel工作簿是否受保护？附VBA代码求助

嘿，我来帮你解决这个问题！首先得指出你原代码里的一个小问题：GetObject已经会自动打开指定路径的工作簿了，之后再调用Wb.Open是多余的，甚至会触发运行时错误，得先把这步去掉~

回到你的核心需求：在打开工作簿前检查它是否受保护。这里分两种情况：打开密码保护（打开时必须输入密码才能访问）和结构/窗口保护（打开后编辑工作表结构或窗口需要密码）。后者只能在打开工作簿后才能检查，而前者可以通过尝试无密码打开+错误捕获的方式提前判断。

下面是修改后的完整代码，我给你加了详细的注释：

Sub MySub()
    Dim Wb As Workbook
    Dim filePath As String
    Dim i As Long
    
    ' 用Long类型遍历行数，避免行数超过Integer上限时溢出
    For i = 14 To Cells(Rows.Count, 1).End(xlUp).Row
        filePath = Cells(i, 4).Value
        
        ' 先检查文件是否存在，避免无效路径报错
        If Dir(filePath) = "" Then
            MsgBox "找不到文件：" & filePath, vbExclamation
            GoTo NextRow ' 跳过当前行，继续下一个
        End If
        
        ' 尝试用空密码打开工作簿，捕获密码错误
        On Error Resume Next ' 临时开启错误捕获
        Set Wb = Workbooks.Open(Filename:=filePath, Password:="")
        On Error GoTo 0 ' 关闭错误捕获
        
        ' 根据错误判断是否受密码保护
        If Err.Number = 1004 Then
            ' 1004是Excel常见的密码保护错误代码
            MsgBox "这个工作簿需要打开密码：" & filePath, vbCritical
        ElseIf Not Wb Is Nothing Then
            ' 打开成功后，还可以检查是否有结构/窗口保护
            If Wb.ProtectStructure Then
                MsgBox "注意：" & filePath & " 的工作表结构受保护（不能增删工作表）", vbInformation
            End If
            If Wb.ProtectWindows Then
                MsgBox "注意：" & filePath & " 的窗口布局受保护", vbInformation
            End If
            
            ' 记得操作完成后关闭工作簿（根据需求选择是否保存）
            ' Wb.Close SaveChanges:=False
        End If
        
NextRow:
        Set Wb = Nothing ' 释放对象，避免内存泄漏
    Next i
End Sub

几个关键说明： #

• 用Dir提前检查文件存在性，能避免因路径错误导致的无意义报错
• 通过错误捕获判断打开密码：Excel在遇到需要密码的工作簿时，会抛出错误代码1004，这个在多数版本里都是通用的（比判断错误描述更可靠，因为描述会随语言版本变化）
• 如果是结构/窗口保护，只能在打开后通过ProtectStructure和ProtectWindows属性检查，这类保护不会阻止打开工作簿，只是限制编辑操作

如果你的需求只是判断是否有打开密码，上面的代码完全够用；如果还要处理结构保护，就可以在打开后做对应的逻辑处理啦~

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