1

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

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

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

4

1 回答 1

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")
于 2013-10-02T15:47:11.500 回答