excel工作簿出现“此工作簿包含一个或多个可能不安全的外部源的链接”，请问怎么取消这烦人的提示？

Posted 2023-05-17

excel工作簿每次打开都出现“此工作簿包含一个或多个可能不安全的外部源的链接”，请问怎么取消这烦人的提示？我用的是office2013

第一种情况：如果可以打开表格，希望下次不出现这种情况

步骤：打开表格；点击“数据”—“编辑链接”；根据实际情况“断开链接”或更改。

第二种情况：不能打开表格的情况

步骤：右击EXCEL工作薄，打开方式选择IE浏览器—打开；弹出安全声明，点击“启用”；再次出现“此工作簿包含到一个或多个可能不安全的外部源的链接”，点击“更新”或“不更新“都可打开表格；点击“数据”—“编辑链接”；然后根据实际情况“断开链接”或更改。

参考技术A

如果不依赖于从外部数据源获得数据，可以在“数据”选项下的“编辑链接”中，“断开”链接，即可。

 

追问

这个工作簿是我链接了其他工作簿的数据，断开链接的话，其他工作簿的数据更新了，这个工作簿的数据不就不能及时更新了，我只是不想每次打开都看到这个提示

追答

在“Excel选项”的“信任中心”“消息栏”中，勾选“从不显示被阻止内容的信息”，确定，即可。

参考技术B 把表格中的所有内容复制然后就地选择性粘贴为数值 参考技术C 都是大师级的。我有个最简单的方法：把这个表格复制、黏贴，建立一个副本，副本表格打开就没外部源了。是关了表格，复制一个这个表格的副本出来就行了。

如何关闭空白 Excel 工作簿和宏工作簿？

【中文标题】如何关闭空白 Excel 工作簿和宏工作簿？

【英文标题】：How to close blank excel workbook along with Macro workbook?

【发布时间】：2014-08-01 18:42:10

【问题描述】：

我有 2 个 Excel 工作簿，一个包含宏，另一个工作簿调用宏工作簿。

在主工作簿打开事件中，宏工作簿将在同一个应用程序实例中打开，当工作簿关闭时，我正在关闭宏工作簿，然后我写了 Appication.Quit，但这里的问题是在关闭宏工作簿后一个空白 excel remians 打开。

如何通过VBA关闭空白工作簿？

顺便说一句，我在 Office 2007 和 2010 中遇到此问题，仅在 2013 年没有空白 excel。

下面是Macro.xlsm-Module1中的代码

Public Sub Test()
MsgBox "Test"
End Sub

Public Sub Auto_Close()
ThisWorkbook.Saved = True
End Sub

下面是Test.xlsm - Thisworkbook中的代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Workbooks("Macro.xlsm").Close
Module1.CodeFileClose
End Sub

Private Sub Workbook_Open()
Module1.CodeFileOpen
End Sub

下面是Test.xlsm - Module1中的代码

Public Sub CodeFileOpen()
Application.Workbooks.Open ("C:\Macro.xlsm")
Application.Run "Macro.xlsm!Test"
End Sub

Public Sub CodeFileClose()
MsgBox "Before Close"
Application.Quit
End Sub

【问题讨论】：

测试这个。您打算手动关闭宏书还是应该通过宏测试例程来关闭它？

我将只关闭 Test.xlsm 并且宏工作簿将通过 Sub 关闭

【参考方案1】：

Application.Quit 

，或

thisworkbook.close

将再次触发您的 workbook_beforeclose 事件！！！！

所以你会循环播放它

在 test.xlsm 中，此工作簿部分：

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'if you get in here, workbook is already going to close

on error resume next 'if macro.xlsm not opened it would cause an error

thisworkbook.saved= true ' (=no save) or false(=save) or delete line if you want to be asked

with Application
    .displayalerts=false 'set to true if want to be asked before saving
    .enableevents=false 'block events from both workbooks
    .Workbooks("Macro.xlsm").Close
    .enableevents=true 'enable events from both workbooks
end with

'Module1.CodeFileClose 'will cause looping (except if you add application.enableevents=false, but then it will be the case for all excell and you wont be able to triger events, or reset it to true by code)

End Sub

【讨论】：

在关闭 Test.xlsm 后遵循您的方法仍然空白 excel 左侧

【参考方案2】：

据我了解，您希望关闭宏工作簿以及最初打开工作簿的工作簿。

如果是这样，你为什么不在你的 CodeFileClose() Sub 中尝试以下代码：

Public Sub CodeFileClose()
    MsgBox "Before Close"
    Workbooks("Macro.xlsm").Close
End Sub

如果我错了，请详细说明您的问题。

【讨论】：

是的 Flouks，在上面的 scnario 中我可以关闭 Macro.xlasm 但之后一个空白的 excel 仍然打开，我不希望它仍然存在

【参考方案3】：

这就是我的做法。诀窍是使用 Application.Parent.Quit 关闭应用程序的父级：

Sub Close_the_whole_excel_window()

Dim New_session_Excel as New Excel.Application

New_session_Excel.Workbooks.Open Filename:=(Path&FileName), ReadOnly:=True

New_session_Excel.Quit ' This will close the workbook and leave an extra Excel window that stays behind

New_session_Excel.Parent.Quit ' This will close the extra Excel window that stays behind

End Sub

【参考方案4】：

我通过先关闭父级然后关闭应用程序来使其工作：

ActiveWorkbook.Save
Application.DisplayAlerts = False

Excel.Parent.Quit
Application.Quit