如何快速關閉除當前工作簿以外的所有工作簿？

如果您的電腦中開啟了多個工作簿，現在您想關閉所有工作簿，只留下當前的工作簿。除了逐一手動關閉其他工作簿外，是否有更快的方法來處理這個問題呢？本文將介紹一些簡單的方法，讓您只需點擊一下即可解決此問題。

使用VBA代碼關閉除當前工作簿以外的所有工作簿

使用Office Tab關閉除當前工作簿以外的所有工作簿

使用VBA代碼關閉除當前工作簿以外的所有工作簿

使用以下VBA代碼，您可以快速關閉所有已打開的工作簿，但保留當前的工作簿，請按照以下步驟操作：

1. 啟動您希望保持打開的工作簿。

2. 按住ALT + F11鍵以打開Microsoft Visual Basic for Applications視窗。

3. 點擊插入 > 模組，然後在模組視窗中粘貼以下代碼。

VBA代碼：關閉除當前工作簿以外的所有工作簿

Private Sub CloseOtherWorkbook()
'Updateby Extendoffice
Dim xWB As Workbook
Application.ScreenUpdating = False
For Each xWB In Application.Workbooks
    If Not (xWB Is Application.ActiveWorkbook) Then
        xWB.Close
    End If
Next
Application.ScreenUpdating = True
End Sub

4. 然後按F5鍵運行此代碼，隨後所有其他工作簿都會立即關閉，僅保留當前的工作簿。

使用Office Tab關閉除當前工作簿以外的所有工作簿

如果您對一款新產品—— Office Tab感興趣，它能夠幫助您在單一的標籤式窗口中打開多個文檔/文件。有了它，您可以通過一次點擊關閉所有工作簿，只保留當前的工作簿。您可以了解更多並下載Office Tab。

安裝Office Tab後，您會看到所有打開的工作簿都顯示在一個單一的標籤式窗口中，請參見截圖：

然後點擊您希望保持打開的工作簿名稱，右鍵點擊該名稱標籤，然後從上下文菜單中選擇“關閉其他”，請參見截圖：

接著，您會發現只有當前的工作簿是打開的。

相關文章：

如何快速關閉Excel中的所有工作簿？