Excel 2010在通过VBA打开另一个工作簿时要求两次PW

Question

我有一个工作簿，当打开该工作簿时，我想从位于远程服务器上共享驱动器上的另一个工作簿中提取复制的信息。 但是，此远程文件受密码保护。 当这些文件在同一台计算机上时，它可以正常工作。 但是，当通过网络测试时，它会提示我输入密码，就好像是循环故障一样。 也就是说，当提示我时，即使我取消，它仍然会使用代码中给出的密码并完成。

Private Sub Workbook_Open()

Application.DisplayAlerts = False
Set DATES = Workbooks.Open("Shareddrivepath\test.xlsx", password:="test")
    Range("G2:H27").Copy
    ThisWorkbook.Sheets(1).Range("C2:D27").PasteSpecial
    Range("J2:K27").Copy
    ThisWorkbook.Sheets(1).Range("G2:H27").PasteSpecial
    Range("A1:E21").Copy
    ThisWorkbook.Sheets("SET").Range("A1:E21").PasteSpecial


    ThisWorkbook.Sheets(1).Activate

DATES.Close
Application.DisplayAlerts = True

End Sub

是否缺少我可以立即加载该密码的东西，或者将其链接到打开时调用的另一个子项？ 我还尝试过仅链接单元格，并且在启动时仍然需要/请求密码。

Answer 1

我相信我找到了解决此问题的方法：

http://office.microsoft.com/en-us/excel-help/create-and-manage-links-to-other-workbooks-HA001054812.aspx

链接到受密码保护的工作簿将保护密码分配给源工作表或工作簿不会阻止用户链接不知道密码的工作簿更新链接。 如果您希望用户必须输入密码来更新链接，请用打开的密码保存源工作簿文件（在“文件”菜单上单击“另存为”，在“工具”菜单上单击“常规选项”）。

Set DATES = Workbooks.Open _
                    ("Shareddrivepath\test.xlsx", WriteResPassword:="test")