用於隱藏除活動工作表之外的所有內容的 Excel 宏

您可能希望使用此宏隱藏非活動工作表。Excel 不允許您隱藏工作簿中的所有工作表；必須至少顯示一個。但是，您可以隱藏除活動工作表之外的所有工作表。

宏的工作原理

此處的宏遍歷工作表並將每個工作表名稱與活動工作表的名稱相匹配。每次宏循環時，它都會隱藏任何不匹配的工作表。

子宏1()
'第 1 步：聲明變量
    Dim ws as 工作表
'第 2 步：開始遍歷所有工作表
    對於 ThisWorkbook.Worksheets 中的每個 ws
'第 3 步：檢查每個工作表名稱
    如果 ws.Name <> ThisWorkbook.ActiveSheet.Name 那麼
'第 4 步：隱藏工作表
    ws.Visible = xlSheetHidden
    萬一
'第 5 步：循環到下一個工作表
    下一個
結束子

第 1 步聲明了一個名為 ws 的對象。此步驟為宏循環通過的每個工作表創建一個內存容器。

第 2 步開始循環，告訴 Excel 評估此工作簿中的所有工作表。請注意 ThisWorkbook 和 ActiveWorkbook 之間的區別。ThisWorkBook 對像是指包含代碼的工作簿。ActiveWorkBook 對像是指當前活動的工作簿。它們通常返回相同的對象，但如果運行代碼的工作簿不是活動工作簿，它們將返回不同的對象。在這種情況下，您不想冒險在其他工作簿中隱藏工作表，因此您使用 ThisWorkBook。

在步驟 3 中，宏只是將活動工作表名稱與當前正在循環的工作表進行比較。

如果工作表名稱不同，宏會在步驟 4 中隱藏工作表。

在第 5 步中，您循環返回以獲取下一張紙。在評估所有工作表後，宏結束。

請注意，您在宏中使用了 xlsheetHidden。此屬性應用您通常在右鍵單擊工作表並選擇隱藏時獲得的默認隱藏狀態。在此默認隱藏狀態下，用戶可以右鍵單擊任何選項卡並選擇取消隱藏，這將顯示所有隱藏的工作表。但另一種隱藏狀態比默認狀態更隱蔽。如果您使用 xlSheetVeryHidden 隱藏您的工作表，用戶將根本無法看到它們 — 即使他們右鍵單擊一個選項卡並選擇取消隱藏。取消隱藏以這種方式隱藏的工作表的唯一方法是使用 VBA。