打开时关闭 Excel 电子表格更新链接的消息答案

【问题标题】：Turn Off Msg for Update Links for Excel Spreadsheet upon Opening打开时关闭 Excel 电子表格更新链接的消息
【发布时间】：2018-11-05 16:25:27
【问题描述】：

我有一个我想打开的工作簿，但不要求它更新链接，（确切的消息是：

"此工作簿包含指向其他数据源的链接。如果您更新链接，Excel 将尝试检索最新数据。如果您不更新链接，Excel 将使用以前的信息。请注意，数据链接可以是用于在未经您许可的情况下访问和共享机密信息，并可能执行其他有害行为。如果您不信任本工作簿的来源，请勿更新链接。” )

我想做的是通过单击 Internet Explorer 中的文件打开工作簿并更新链接，但不要求用户单击按钮进行更新。

我在工作簿的 Open Event 中尝试了以下代码，但没有成功：

 Private Sub Workbook_Open()
     Application.DisplayAlerts = False
     Application.ScreenUpdating = False
 End Sub

上面的Sub中我也试过以下几行代码：

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.FullName, Type:=xlExcelLinks
Application.ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.FullName, Type:=xlExcelLinks
Application.ActiveWorkbook.UpdateLink
Workbooks.Open ActiveWorkbook, UpdateLinks:=True
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks

MS Excel 2010 的版本并保存为 .xls 文件以供旧版本使用。

您的帮助将不胜感激。提前感谢您的所有帮助。

尊敬的，

罗伯特

【问题讨论】：

标签： excel vba

【解决方案1】：

以防万一这可能对将来的任何人有所帮助，以下是我所做的：

Private Sub Workbook_Activate()
   Application.AskToUpdateLinks = False

End Sub

这会阻止在打开文件时出现“更新链接”消息框。

罗伯特

【讨论】：

【解决方案2】：

只是添加到罗伯特 (@user2320821) 的答案中 -

我不得不将代码修改为：

Sub Workbook_Open()
   Application.DisplayAlerts = False
   Application.AskToUpdateLinks = False
   Application.DisplayAlerts = True
End Sub

主要区别在于

1) 它是 Workbook_Open 子程序，而不是 Workbook_Activate 子程序。激活子没有抑制更新链接请求。

2) 即使在第一个更新链接请求被抑制之后，我也必须添加一个 DisplayAlerts 标志切换来抑制关于链接未更新的第二个警告。

如果罗伯特的回答不明显，当我把它放在 ThisWorkbook 对象中时，这个子工作。

【讨论】：

【解决方案3】：

我在我的 vba .xlm 文件中使用此代码..

Private Sub Workbook_Open()
ThisWorkbook.UpdateLinks = xlUpdateLinksNever
End Sub

M Office2013

【讨论】：