打开主工作表后，使用密码打开其他Excel文件

Question

我正在使用5种不同的工作表。 1个主工作表和4个参考工作表（主文件上有链接），需要密码才能打开。我创建了一个代码，一打开主工作表就打开4个参考工作表，但是当我这样做时，它仍然提示我输入密码。现在发生的是主文件+ 4个参考文件立即打开但提示仍然显示。

这是我的代码：

Private Sub Workbook_Open()
    Workbooks.Open Filename:=Worksheets("sheet1").Range("j1") _
        & Worksheets("sheet1").Range("j2"), Password:="*****"
    Workbooks.Open Filename:=Worksheets("sheet1").Range("j1") _
        & Worksheets("sheet1").Range("j3"), Password:="*****"
    Workbooks.Open Filename:=Worksheets("sheet1").Range("j1") _
        & Worksheets("sheet1").Range("j4"), Password:="*****"
    Workbooks.Open Filename:=Worksheets("sheet1").Range("j1") _
        & Worksheets("sheet1").Range("j5"), Password:="*****"
End Sub

当我打开主文件时，我收到此提示：

我想要发生的是，如果有一个VB脚本输入提示密码，提示就会消失。

Answer 1

如果您尝试在工作簿中打开受保护的工作表，则代码应如下所示：

Sheets("sheet1").Unprotect "Your Password"

否则我认为打开工作簿需要一些（）

Workbooks.Open(Filename:= "file.xls", Password:="ABC")