如何在 Excel 中断开链接？

在 Excel 中链接到其他工作簿或者其他应用程序是非常常见的。不过，有时候你可能需要断开这些链接，例如当你需要分享工作簿或者将其发送给其他人时，可能需要断开链接避免他人看到敏感信息或者影响其他人的实际操作。

本文将介绍如何在 Excel 中断开链接，包括以下几个方面：

1. 如何手动断开链接
2. 如何批量断开链接
3. 如何自动断开链接

一、如何手动断开链接

手动断开链接是最直接、最简单的方法。在 Excel 中，你可以使用以下步骤来手动断开链接：

1. 打开需要断开链接的工作簿。
2. 在 Excel 中，选择“数据”>“编辑链接”。
3. 在“编辑链接”对话框中，选择需要断开的链接，然后单击“断开链接”。
4. 单击“确定”以确认你的更改。

这样可以断开单个链接。如果需要断开多个链接，可以重复以上步骤，选择多个链接，然后进行断开。

二、如何批量断开链接

如果你需要断开大量链接，手动一个一个断开链接会非常繁琐。这时候可以使用 VBA 宏来批量自动断开链接。

以下是一个简单的 VBA 代码片段，可以自动断开当前工作簿中的所有链接：

Sub BreakLinks()
    Dim Links As Variant
    Links = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    If Not IsEmpty(Links) Then
        ActiveWorkbook.BreakLink _
            Name:=Links, _
            Type:=xlLinkTypeExcelLinks
    End If
End Sub

运行这个宏后，将会自动断开当前工作簿中的所有链接。需要注意的是，这个宏只能断开当前工作簿中的链接，如果需要断开其他工作簿中的链接，需要更改代码中的目标工作簿。

三、如何自动断开链接

如果你需要每次打开工作簿时自动断开链接，可以使用 Workbook_Open 事件来实现这一功能。

以下是一个简单的 VBA 代码片段，可以每次打开工作簿时自动断开链接：

Private Sub Workbook_Open()
    Dim Links As Variant
    Links = Me.LinkSources(Type:=xlLinkTypeExcelLinks)
    If Not IsEmpty(Links) Then
        Me.BreakLink _
            Name:=Links, _
            Type:=xlLinkTypeExcelLinks
    End If
End Sub

将这个代码片段添加到工作簿的 VBA 代码中（按 ALT+F11 进入 VBA 界面，然后选择“这个工作簿”的项目，右键选择“插入”>“模块”，然后将代码片段复制到模块中），每次打开工作簿时就会自动断开链接。

需要注意的是，这个方法只会断开当前工作簿中的链接，如果需要断开其他工作簿中的链接，需要更改代码中的目标工作簿。

结论

Excel 中断开链接并不难，你可以手动一个一个断开链接，也可以使用 VBA 宏批量自动断开链接，甚至可以通过 Workbook_Open 事件在每次打开工作簿时自动断开链接。选择哪种方法取决于你的具体需求，但无论如何，断开链接都是保护工作簿数据安全和分享工作簿的一个非常重要的环节。