如何通过VBA实现打开Excel文件时自动输入关联受保护文件的密码？

我明白你的困扰——明明示例A没保护，每次更新数据却要输示例B的密码，太麻烦了！你尝试用Workbook_Open事件的思路完全正确，只是可能几个细节没处理到位，导致代码没生效。咱们一步步来修正：

为什么你的代码没生效？ #

• 最常见的问题是文件路径错误：如果路径里包含空格、中文或者特殊字符，直接写在代码里容易出问题；另外用相对路径的话，一旦文件移动位置就会失效，最好用绝对路径。
• 没有检查目标文件是否已经打开：如果示例B已经在后台打开了，重复执行Workbooks.Open反而可能触发额外的弹窗，或者代码没起到实际作用。
• 宏安全设置限制：Excel默认会禁用未签名的宏，如果你的示例A没被设置为信任文件，宏根本不会运行。

修正后的VBA代码 #

把下面的代码替换你原来的子程序，记得替换成你自己的文件路径和密码：

Private Sub Workbook_Open()
    ' 替换成示例B的绝对路径
    Dim targetFilePath As String
    targetFilePath = "C:\你的文件路径\示例B.xlsx"
    
    ' 先检查示例B是否已经打开，避免重复打开
    Dim targetWb As Workbook
    On Error Resume Next
    Set targetWb = Workbooks("示例B.xlsx") ' 这里用文件名，注意后缀要匹配
    On Error GoTo 0
    
    ' 如果没打开，就带密码打开它
    If targetWb Is Nothing Then
        Workbooks.Open Filename:=targetFilePath, Password:="你的示例B密码"
    End If
End Sub

关键注意事项 #

• 绝对路径要准确：你可以右键示例B，选择「属性」查看完整的文件路径，复制过来确保没有拼写错误。
• 启用宏：打开示例A时，Excel顶部会弹出宏安全提示，选择「启用内容」；如果想一劳永逸，可以把示例A所在的文件夹设置为Excel的「信任位置」。
• 密码要正确：注意区分大小写，Excel的打开密码是严格区分大小写的。

这样设置后，下次打开示例A时，VBA会自动在后台打开示例B（带密码），示例A里的公式就会直接链接到已打开的示例B，不会再弹出密码输入框啦！

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