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

【问题标题】：Excel 2010 asking for PW twice upon Open via VBA in open of another workbookExcel 2010 在打开另一个工作簿时通过 VBA 打开时两次要求 PW
【发布时间】：2013-10-01 12:43:19
【问题描述】：

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

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

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

【问题讨论】：

我相信我找到了解决此问题的方法：office.microsoft.com/en-us/excel-help/… 链接到受密码保护的工作簿如果您希望用户必须输入密码才能更新链接，请使用密码保存源工作簿文件以打开 (单击文件菜单上的另存为，单击工具菜单“修改密码”上的常规选项）。设置 DATES = Workbooks.Open ("Shareddrivepath\test.xlsx", WriteResPassword:="test")

标签： excel passwords subroutine vba

【解决方案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")

【讨论】：

只要没有其他人有任何其他想法，就会在 20 小时内接受这个作为正确答案:)