如何從 Excel 移除巨集（完整指南）

Microsoft Excel 提供強大的巨集功能，可自動化重複性作業，並執行許多內建功能無法實現的操作。然而，這些巨集有時可能變得冗餘，甚至在與他人共用活頁簿時帶來潛在的安全風險。此時，掌握如何安全且有效地移除巨集便至關重要。本指南將逐步引導您透過多種方式，從 Excel 工作表中徹底移除巨集，確保您隨時都能擁有乾淨、精簡的檔案。

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

• 使用 VBA 從資料夾中的活頁簿移除巨集
• 使用 Kutools 從任意指定活頁簿移除巨集

在 Excel 中移除巨集前須知事項

• 當您開啟啟用巨集的活頁簿並嘗試移除巨集時，必須先點擊活頁簿中的啟用內容按鈕，才能繼續進行刪除作業。
• 

• 注意：如果您未看到此按鈕，表示您可以放心繼續刪除巨集。之所以看不到該按鈕，可能是因為您自行建立了內嵌巨集的工作簿並加以儲存。當您在同一台電腦上、且 Excel 設定未變更的情況下重新開啟該工作簿時，啟用內容按鈕通常不會顯示，這是因為該檔案來自受信任的來源（您自己），且位於受信任的位置（您的電腦）。

• 請務必牢記：巨集一旦移除便無法復原。為確保您的工作安全，建議在刪除任何巨集前，先備份活頁簿。

移除特定巨集

步驟 1：開啟巨集對話方塊

前往開發人員選項卡，並點選巨集，即可開啟巨集對話方塊。（若您的 Excel 未顯示）開發人員選項卡，請參閱步驟後的說明。）

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

1. 展開「巨集位置」下拉式選單，並選擇要移除巨集的目標位置。
2. 從巨集清單中選取您要移除的項目。
3. 點擊刪除。
4. 

從活頁簿中刪除所有巨集

當您需要從活頁簿中清除所有宏時，可採用以下兩種方法：

透過將檔案儲存為 xlsx 格式，從活頁簿中刪除所有巨集

「Excel 工作簿（*.xlsx）」格式本身不支援巨集，因此當您將活頁簿儲存為此格式時，所有嵌入的巨集將自動移除。請依照下列步驟執行此操作：

1. 前往檔案＞ 另存新檔。
2. 展開文件類型下拉式選單，並選擇「Excel 工作簿（*.xlsx）」格式。
   提示：您可在下拉式選單上方的文字方塊中輸入 .xlsx 檔案的新檔名。若要將檔案儲存至其他位置，請點擊瀏覽。
3. 點擊儲存。

   

   注意：另存新檔介面可能因 Excel 版本不同而有所差異。若您未看到如上所示、提供選擇檔案類型的右側窗格，請一律點選瀏覽，並選擇「Excel 工作簿（*.xlsx）」格式。

4. 在出現的提示方塊中，選取是。
5. 

結果

結果將產生一份不含巨集的 .xlsx 格式檔案，並沿用原始 .xlsm 檔案的名稱，儲存於相同位置。

使用 Kutools 提供的一鍵選項，從活頁簿中刪除所有巨集

Kutools for Excel 是一款進階 Excel 增益集，提供一鍵清除功能，讓您輕鬆刪除活頁簿中嵌入的所有巨集！只需單擊一次，即可完整移除 VBA 模組、UserForm、Excel 5/95 對話工作表及 Excel 4 XLM 巨集工作表。

開啟包含您要刪除巨集的活頁簿後，請切換至 Kutools 選項卡，並點選刪除＞ 清除所有巨集，輕鬆完成清理！

刪除＞清除所有宏“ />

從多個活頁簿中刪除所有巨集

當您需要從多個活頁簿中移除巨集時，可選擇以下兩種方法：

使用 VBA 從資料夾中的活頁簿移除清除所有宏

本節將示範如何透過 VBA 巨集，高效地移除指定資料夾內所有活頁簿中的巨集。

步驟 1：建立新模組

1. 按下 Alt + F11，立即開啟 Visual Basic for Applications (VBA)編輯器！
2. 點擊插入＞ 模組，即可建立新模組！
3. VBA 編輯器中的模組“ />

步驟 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. 在出現的選擇資料夾視窗中，選取包含欲移除巨集之活頁簿的資料夾，然後點擊確定。
3. 

結果

在巨集完成處理所選資料夾中的所有 Excel 檔案並移除其中的巨集後，您將看到「巨集移除已完成！」訊息方塊。

使用 Kutools 從特定活頁簿移除清除所有宏

Kutools for Excel 提供一種使用者友善的方式，輕鬆清除多個活頁簿中的所有巨集。對於不熟悉 VBA 技術或對其卻步的使用者來說，Kutools 是理想的替代方案！透過此工具，您可快速移除 VBA 模組、使用者表單、Excel 5/95 對話框工作表，以及 Excel 4 XLM 巨集工作表，操作簡單又高效！

在 下載並安裝 Kutools for Excel後，請依照下列步驟操作：

1. 選取 Kutools > 刪除 > 批量刪除所有宏。
2. 刪除 > 批量刪除所有宏“ />
2. 在出現的批量刪除所有宏對話方塊中，將列出所有已開啟的活頁簿供您移除巨集。請依下列步驟操作：
   1. 若要新增更多需移除巨集的工作簿，請先點選新增按鈕，再選擇檔案或資料夾。
   2. 若不希望某些工作簿參與巨集移除程序，請點擊按鈕將其排除。
   3. 在對話方塊中列出所有欲移除巨集的工作簿後，請按一下確定。
   4. 

結果

此時將彈出一個新對話方塊，顯示 Kutools 已處理多少個活頁簿以移除巨集。按下確定後，系統會自動產生一份摘要活頁簿，詳列處理結果。

以上即為 Excel 中移除巨集的完整教學內容，希望對您有所幫助！若您想探索更多 Excel 實用技巧，請點此處，立即瀏覽我們超過數千篇的詳細教學文章，輕鬆提升工作效率！

相關文章

• 如何根據 Excel 儲存格中的數值來執行巨集？
• 如何在 Excel 中於儲存格數值變更時自動執行巨集？
• 如何在 Excel 中同時對多個工作表執行相同的巨集？