Microsoft Excel 以巨集的形式提供了強大的功能，可自動執行重複性任務，並完成許多 Excel 內建功能無法實現的操作。 但是，在某些情況下，這些巨集可能會變得多餘，甚至帶來潛在的安全風險，尤其是在與其他人共用工作簿時。 在這些時刻，了解如何安全有效地刪除巨集變得至關重要。 本指南旨在引導您了解從 Excel 工作簿中刪除巨集的各種方法，確保您在需要時擁有乾淨、精簡的文件。

• 透過將檔案儲存為 xlsx 格式
• 透過 Kutools 提供的一鍵選項

• 使用 VBA 從資料夾中的工作簿中刪除巨集
• 使用 Kutools 從任何特定工作簿中刪除宏

在 Excel 中刪除巨集之前需要了解的事項

• 開啟啟用巨集的工作簿並嘗試刪除巨集時，必須先按一下 啟用內容 工作簿中的按鈕。 在繼續刪除它們之前這是必要的。
• 

• 注意： 如果您沒有看到此按鈕，則表示您可以繼續刪除巨集。 其缺失的原因可能是您自己創建了嵌入巨集的工作簿並保存了它。 在同一台電腦上且 Excel 設定未變更的情況下重新開啟該工作簿時， 啟用內容 按鈕經常不顯示。 這是因為該文件來自受​​信任的來源（您）並且位於受信任的位置（您的電腦）。

• 請記住，一旦刪除宏，就無法恢復。 為了保護您的工作，建議在刪除任何巨集之前建立工作簿的備份副本。

刪除特定巨集

第 1 步：開啟巨集對話框

導航到 開發者 選項卡並選擇 宏 打開 宏 對話框。 （如果 開發者 選項卡在 Excel 中不可見，請參閱步驟後面的註釋。）

步驟 2：選擇並刪除特定巨集

1. 展開 “宏在” 下拉式選單，然後選擇要刪除巨集的目標位置。
2. 從巨集清單中，選擇要刪除的巨集。
3. 點擊 刪除.
4. 

從工作簿中刪除所有宏

如果您需要從工作簿中刪除所有宏，可以使用以下兩種方法：

透過以 xlsx 格式儲存檔案來刪除工作簿中的所有宏

「Excel 工作簿 (*.xlsx)」格式本質上缺乏對巨集的支援。 因此，以這種特定格式儲存工作簿將導致自動刪除所有嵌入的巨集。 若要執行此方法，請依照下列步驟操作：

1. 導航 文件 > 另存為.
2. 展開文件類型下拉式選單並選擇“Excel工作簿（* .xlsx）“ 格式。
3. 小提示: 您可以在下拉式選單上方的文字方塊中輸入 .xlsx 檔案的新名稱。 若要將檔案儲存在其他位置，請按一下 瀏覽.
3. 點擊 節省.
4. 

   注意： 另存為 不同 Excel 版本的介面可能有所不同。 如果您沒有看到如上所示的右側窗格（其中可以選擇文件格式），您可以隨時單擊 瀏覽 然後選擇“Excel 工作簿 (*.xlsx)”格式。

4. 在出現的提示框中選擇 是.
5. 

結果

結果，將儲存一個不帶巨集的“.xlsx”格式的新檔案。 此 .xlsx 檔案將採用原始 .xlsm 檔案的名稱並保存在同一位置。

使用 Kutools 提供的一鍵選項從工作簿中刪除所有宏

Excel的Kutools是一種進階 Excel 加載項，為使用者提供一鍵式選項，可輕鬆刪除工作簿中嵌入的所有巨集。 只需按一下，您就可以清除 VBA 模組、使用者窗體、Excel 5/95 對話方塊表和 Excel 4 XLM 巨集工作表。

開啟包含要刪除的巨集的工作簿後，導覽到 庫工具 選項卡，然後選擇 刪除 > 刪除所有宏。 瞧，你就完成了！

從多個工作簿中刪除所有宏

當面臨從多個工作簿中刪除巨集的任務時，您可以採取兩種方法：

使用 VBA 從資料夾中的工作簿中刪除所有宏

在本節中，我將示範如何使用 VBA 巨集有效地從指定資料夾內的所有工作簿中刪除巨集。

第 1 步：創建一個新模塊

1. 媒體推薦 Alt + F11鍵 打開 Visual Basic 應用程序 (VBA) 編輯器。
2. 點擊 插入 > 模塊 創建一個新模塊。
3. 

步驟 2：將 VBA 代碼複製到模塊窗口

複製下面的VBA程式碼並將其貼上到開啟的 模塊 窗口。

Sub RemoveMacrosFromWorkbooks()
' Update by ExtendOffice

    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.
3. 

結果

巨集完成處理所選資料夾中的所有 Excel 檔案並從中刪除巨集後，您將看到一個“巨集刪除完成！”訊息框。

使用 Kutools 從任何特定工作簿中刪除所有宏

Excel的Kutools 提供了一種使用者友好的方式從多個工作簿中刪除所有巨集。 對於那些猶豫或不熟悉 VBA 技術的人來說，Kutools 是一個理想的選擇。 使用此工具，您可以輕鬆刪除 VBA 模組、使用者窗體、Excel 5/95 對話方塊表和 Excel 4 XLM 巨集工作表。

後 下載並安裝 Kutools for Excel，繼續執行以下步驟：

1. 選擇 庫工具 > 刪除 > 批量刪除所有宏.
2. 
2. 在 批量刪除所有宏 在出現的對話方塊中，列出了所有開啟的工作簿以進行巨集刪除。 接下來您需要執行以下操作：
   1. 若要新增更多工作簿以進行巨集刪除，請按一下 加入 按鈕，然後選擇 文件 or 夾.
   2. 如果您希望從巨集刪除過程中排除任何工作簿，請按一下 按鈕將其刪除。
   3. 在對話方塊中列出所有需要刪除巨集的工作簿後，按一下 OK.
   4. 

結果

出現一個新的對話框，指示 Kutools 已處理多少工作簿以進行巨集刪除。 按下後 OK，將產生一個自動摘要工作簿來概述結果。

以上就是Excel中刪除巨集相關的全部內容。 我希望本教程對您有所幫助。 如果您想探索更多 Excel 提示和技巧， 請點擊這裡 訪問我們廣泛收集的超過數千個教程。

相關文章

• 如何在Excel中根據單元格值運行宏？
• Excel中單元格值更改時如何運行宏？
• 如何在Excel中同時在多個工作表上運行相同的宏？