如何快速關閉除活動工作簿外的所有工作簿？

---

本文將指導使用者學習如何快速關閉除活動工作簿外的所有工作簿。無論使用者是在處理複雜的專案還是與他人協作，掌握 VBA 程式碼都將提高生產力和簡化使用者的 Excel 體驗。這種節省時間的方法無需逐個關閉每個工作簿，使使用者能夠整理工作區並最大程度地減少干擾。本文包含一個示例，指導使用者完成關閉除活動工作簿外的所有工作簿的過程。

示例 1：使用 Excel 中的 VBA 程式碼關閉除活動工作簿外的所有工作簿。

步驟 1

開啟一個 Excel 工作簿並建立一些示例電子表格。對於下面提供的電子表格，我們將建立 4 個這樣的電子表格。使用者可以在工作表選項卡中輕鬆檢視定義的工作表，如下所示：

步驟 2

為了正確理解處理過程，我們將考慮另一個名為 De_activate 的工作簿。工作表如下所示：

請注意，第一個提供的電子表格被視為活動電子表格。

步驟 3

然後轉到前一個工作表，並使用右鍵單擊“工作表 2”選項卡。然後單擊“檢視程式碼”選項。請參考以下提供的快照：

步驟 4

上述步驟將開啟“Microsoft Visual Basic for Applications”。請參考以下提供的快照：

步驟 5

將以下程式碼複製到編輯器中：

' define close_all_wrkbok() method
Private Sub close_all_wrkbok()
' declaring required variables
Dim wrk_book_x As Workbook
'setting the status to screen
Application.ScreenUpdating = False
' for each loop
For Each wrk_book_x In Application.Workbooks
   ' if expression to check the active workboook
   If Not (wrk_book_x Is Application.ActiveWorkbook) Then
      ' close workbook
      wrk_book_x.Close
   ' end of if block
   End If
' next block
Next
' set screen update status to true
Application.ScreenUpdating = True
' end of module
End Sub

請參考以下提供的快照：

步驟 7

然後單擊下面顯示的執行按鈕：

步驟 8

上述步驟將顯示一個對話方塊，該對話方塊顯示訊息對話方塊“Microsoft Excel”，然後單擊“儲存”按鈕，如下所示：

步驟 9

上述步驟將自動關閉視窗。

結論

快速關閉 Excel 中除活動工作簿外的所有工作簿是一項寶貴的技能，可以顯著提高使用者的效率。透過遵循本文中演示的步驟，使用者可以輕鬆關閉不必要的工作簿，並將注意力集中在當前正在處理的工作簿上。無論使用者是在管理複雜的專案還是與他人協作，掌握這種方法都將幫助使用者簡化 Excel 體驗並提高工作效率。因此，請利用這種高效的方法快速關閉除活動工作簿外的所有工作簿，並享受更有條理和專注的工作環境。