如何在Excel中隱藏除指定工作表或活動工作表以外的所有工作表？

為了保持工作簿整潔并易于瀏覽，您可能希望在Excel中隱藏除當前活動工作表以外的所有工作表。 在本文中，我們將向您展示兩種隱藏所有工作表，但在Excel中已指定或處于活動狀態的方法。

使用VBA代碼隱藏Excel中除指定工作表以外的所有工作表

隱藏除活動工作表以外的所有工作表 Kutools for Excel （只需點擊幾下）使用VBA代碼隱藏Excel中除指定工作表以外的所有工作表驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

您可以使用Excel中的VBA代碼隱藏除指定的工作表以外的所有工作表。 請執行以下操作。

1.在當前打開的工作簿中，切換到僅要顯示的工作表，然后按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊。 看截圖：

3.然后將下面的VBA代碼復制并粘貼到代碼器中。

VBA代碼：隱藏除指定的一張以外的所有圖紙

Sub SheetHidden()Dim xWs As WorksheetDim xName As StringxName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)For Each xWs In Application.ActiveWorkbook.WorksheetsIf xWs.Name <> xName ThenxWs.Visible = xlSheetHiddenEnd IfNextEnd SubCopy

4。 按 F5 鍵來運行代碼。

5.運行代碼后，將彈出一個對話框，在其中顯示活動工作表名稱。 Range 框，然后單擊 OK 按鈕。

然后，除工作簿中的當前工作表外，所有工作表都將立即隱藏。

備注：要顯示隱藏的工作表，請復制以下VBA代碼并將其粘貼到模塊中，然后按F5鍵運行代碼。

VBA代碼：顯示隱藏的工作表

Sub SheetUnHidden()Dim xWs As WorksheetFor Each xWs In Application.ActiveWorkbook.WorksheetsxWs.Visible = TrueNextEnd SubCopy

隱藏除活動工作表以外的所有工作表 Kutools for Excel （一鍵）

您可以一鍵隱藏Excel中除指定的或活動的表格以外的所有表格。

申請前 Kutools for Excel請 首先下載并安裝.

1.進入要僅在當前工作簿中顯示的指定工作表。

2。 然后點擊 Kutools > 顯示隱藏 > 隱藏未選中的圖紙.

然后，當前工作簿中的所有工作表（活動工作表除外）都將被隱藏。

備注：如果要顯示所有隱藏的工作表，請單擊 Kutools > 顯示/隱藏 > 取消隱藏所有工作表。 看截圖：

如果您想（30-day) 這個實用程序， 請點擊下載，然后按照上述步驟進行操作。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel