如何从 Excel 中删除巨集（完全指南）-英雄云拓展知识分享

Microsoft Excel 以巨集的情势提供了强盛的功能，可自动履行重复性任务，并完成许多 Excel 内建功能没法实现的操作。 但是，通常，在某些情况下，这些巨集可能会变很多余，乃至带来潜伏的安全风险，特别是在与其他人共用工作簿时。 在这些时刻，了解如何安全行之有效的地删除巨集变得相当重要。 本指南旨在引导您了解从 Excel 工作簿中删除巨集的各种方法，确保您在需要时具有乾净、精简的文件。

• 透过将档案贮存为 xlsx 格式
• 透过 tools 提供的一键选项

• 使用 VBA 从资料夹中的工作簿中删除巨集
• 使用 tools 从任何特定工作簿中删除宏

在 Excel 中删除巨集之前需要了解的事项

• 开启启用巨集的工作簿并尝试删除巨集时，必须先按一下 启用内容 工作簿中的按钮。 在继续删除它们之前这是必要的。

• 注意： 如果您没有看到此按钮，则表示您可以继续删除巨集。 其缺失的缘由多是您自己创建了嵌入巨集的工作簿并保存了它。 在同一台电脑上且 Excel 设定未变更的情形下重新开启该工作簿时， 启用内容 按钮常常不显示。 这是由于该文件来自受​​信任的来源（您）并且位于受信任的位置（您的电脑）。

• 请记住，一旦删除宏，就没法恢复。 为了保护您的工作，建议在删除任何巨集之前建立工作簿的备份副本。

删除特定巨集

第 1 步：开启巨集对话框

导航到 开发者 选项卡并选择 宏 打开 宏 对话框。 （如果 开发者

选项卡在 Excel 中不可见，请参阅步骤后面的注释。）

步骤 2：选择并删除特定巨集

1. 展开 “宏在” 下拉式选单，然后选择要删除巨集的目标位置。
2. 从巨集清单中，选择要删除的巨集。
3. 点击 删除.

从工作簿中删除所有宏

如果您需要从工作簿中删除所有宏，可使用以下两类方法：

透过以 xlsx 格式贮存档案来删除工作簿中的所有宏

「Excel 工作簿 (*.xlsx)」格式本质上缺少对巨集的支援。 因此，这种情况下，以这类特定格式贮存工作簿将致使自动删除所有嵌入的巨集。 若要履行此方法，请依照以下步骤操作：

1. 导航 文件 > 另存为.
2. 展开文件类型下拉式选单并选择“Excel工作簿（* .xlsx）“ 格式。
3. 小提示: 您可以在下拉式选单上方的文字方块中输入 .xlsx 档案的新名称。 若要将档案贮存在其他位置，请按一下 阅读.

3. 点击 节省.

4. 注意： 另存为 不同 Excel 版本的介面可能有所不同。 如果您没有看到如上所示的右边窗格（其中可以选择文件格式），您可以随即单击 阅读 然后选择“Excel 工作簿 (*.xlsx)”格式。

4. 在出现的提示框当选择 是.

结果

结果，将贮存一个不带巨集的“.xlsx”格式的新档案。 此 .xlsx 档案将採用原始 .xlsm 档案的名称并保存在同一名置。

使用 tools 提供的一键选项从工作簿中删除所有宏

Excel的tools是一种进阶 Excel 加载项，为使用者提供一键式选项，可轻鬆删除工作簿中嵌入的所有巨集。 只需按一下，您就能够清除 VBA 模组、使用者窗体、Excel 5/95 对话方块表和 Excel 4 XLM 巨集工作表。

开启包括要删除的巨集的工作簿后，导览到 库工具 选项卡，然后选择 删除 > 删除所有宏。 瞧，你就完成了！

从多个工作簿中删除所有宏

当面对从多个工作簿中删除巨集的任务时，您可以採取两类方法：

使用 VBA 从资料夹中的工作簿中删除所有宏

在本节中，我将示範如何使用 VBA 巨集行之有效的地从指定资料夹内的所有工作簿中删除巨集。

第 1 步：创建一个新模块

1. 媒体推荐 Alt + F11键 打开 Visual Basic 利用程序 (VBA) 编辑器。
2. 点击 插入 > 模块 创建一个新模块。

步骤 2：将 VBA 代码复制到模块窗口

复制下面的VBA程式码并将其贴上到开启的 模块 窗口。

Sub RemoveMacrosFromWorkbooks()
' Update by
Dim wb As Workbook
Dim FolderPath As String
Dim filename As String
Dim VBComp As Object
Dim VBProj As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.title = "Select a folder"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "No folder selected. The procedure will exit.", vbExclamation
Exit Sub
End If
FolderPath = .SelectedItems(1)
End With
If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath + "\"
filename = Dir(FolderPath & "*.xls*")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Do While filename <> ""
Set wb = Workbooks.Open(FolderPath & filename)
If wb.HasVBProject Then
Set VBProj = wb.VBProject
For Each VBComp In VBProj.VBComponents
VBProj.VBComponents.Remove VBComp
Next VBComp
End If
wb.Close SaveChanges:=True
filename = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "Macros removal completed!", vbInformation
End Sub

第 3 步：运行 VBA 代码

1. 在 模块 窗口，按 F5 或单击 按钮来履行粘贴的代码。
2. 在 选择一个文件夹 在出现的视窗中，选择包括要从中删除巨集的工作簿的资料夹，然后按一下 OK.

结果

巨集完成处理所选资料夹中的所有 Excel 档案并从中删除巨集后，您将看到一个“巨集删除完成！”讯息框。

使用 tools 从任何特定工作簿中删除所有宏

Excel的tools 提供了一种使用者友好的方式从多个工作簿中删除所有巨集。 对那些犹豫或不熟习 VBA 技术的人来讲，tools 是一个理想的选择。 使用此工具，您可以轻鬆删除 VBA 模组、使用者窗体、Excel 5/95 对话方块表和 Excel 4 XLM 巨集工作表。

后 下载并安装 tools for Excel，继续履行以下步骤：

1. 选择 库工具 > 删除 > 批量删除所有宏.
2. 在 批量删除所有宏 在出现的对话方块中，列出了所有开启的工作簿以进行巨集删除。 接下来您需要履行以下操作：
   1. 若要新增更多工作簿以进行巨集删除，请按一下 加入 按钮，然后选择 文件 or 夹.
   2. 如果您希望从巨集删除进程中排除任何工作簿，请按一下 按钮将其删除。
   3. 在对话方块中列出所有需要删除巨集的工作簿后，按一下 OK.

结果

出现一个新的对话框，唆使 tools 已处理多少工作簿以进行巨集删除。 按下后 OK，将产生一个自动摘要工作簿来概述结果。

以上就是Excel中删除巨集相干的全部内容。 我希望本教程对您有所帮助。 如果您想探索更多 Excel 提示和技能， 请点击这里 访问我们广泛搜集的超过数千个教程。

相干文章

• 如何在Excel中针对单元格值运行宏？
• Excel中单元格值更改时如何运行宏？
• 如何在Excel中同时在多个工作表上运行相同的宏？