VB.Net：他人已打开受保护工作簿时后台打开不弹出密码窗口

这个问题我之前帮朋友排查过，核心原因是Excel对象模型处理加密文件和普通文件的错误触发顺序不一样：

• 对于未加密文件：当它被其他用户打开时，Excel会直接抛出“文件已锁定”的错误，你的On Error GoTo逻辑能正常捕获；
• 对于加密文件：Excel会优先弹出密码输入对话框，这一步发生在错误检查之前，所以你的错误处理根本没机会拦截这个弹窗，直到用户手动关闭密码框后，才会进入错误分支。

下面给你两种可靠的解决方案：

方案1：先检查文件是否被占用，再尝试打开 #

先通过文件流判断文件是否被其他进程锁定，确认未被占用后再调用Excel的Workbooks.Open方法，从根源避免触发密码弹窗。

Imports System.IO

Sub OpenProtectedWorkbook()
    Dim targetPath As String = "C:\johndoe.xls"
    Dim isFileLocked As Boolean = False

    ' 检查文件是否被其他进程占用
    Try
        Using fs As New FileStream(targetPath, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
            ' 能成功获取流，说明文件未被锁定
        End Using
    Catch ex As IOException
        ' 捕获IO异常，判定文件被占用
        isFileLocked = True
    End Try

    If isFileLocked Then
        MessageBox.Show("File is already open")
        Exit Sub
    End If

    ' 文件未被占用，安全打开加密工作簿
    Try
        Dim excelApp As New Microsoft.Office.Interop.Excel.Application()
        excelApp.Visible = False ' 后台运行
        Dim targetWorkbook = excelApp.Workbooks.Open(Filename:=targetPath, Password:="Password")
        
        ' 这里添加你的后续处理逻辑
        ' ...

    Catch ex As Exception
        MessageBox.Show("打开文件出错：" & ex.Message)
    End Try
End Sub

方案2：禁用Excel提示，强制触发错误处理 #

通过设置Excel应用的DisplayAlerts属性为False，让Excel不再弹出密码输入框，而是直接抛出错误，这样你的错误处理逻辑就能正常捕获“文件被占用”的情况。

Sub OpenProtectedWorkbook()
    Dim excelApp As New Microsoft.Office.Interop.Excel.Application()
    excelApp.Visible = False
    excelApp.DisplayAlerts = False ' 禁用所有Excel弹窗提示

    On Error GoTo ErrorHandler
    excelApp.Workbooks.Open(Filename:="C:\johndoe.xls", Password:="Password")
    
    ' 后续处理逻辑
    ' ...

    ' 恢复提示设置
    excelApp.DisplayAlerts = True
    Exit Sub

ErrorHandler:
    ' 一定要恢复提示，避免影响后续Excel操作
    excelApp.DisplayAlerts = True
    MessageBox.Show("File is already open")
End Sub

注意事项 #

• 方案1更可靠，能在调用Excel对象模型前就判断文件状态，减少潜在的异常；
• 方案2必须在错误处理分支里恢复DisplayAlerts为True，否则后续的Excel操作会一直禁用提示，可能导致数据丢失等问题；
• 如果需要区分“文件被占用”和“密码错误”，可以在Catch块里捕获Excel的具体错误代码（比如文件被占用对应的错误代码是1004的子类），做更细致的错误处理。

内容的提问来源于stack exchange，提问作者Łukas Ptak