Як показати весь лист excel?

У мене є файл excel 2007 з багатьма аркушами, і мені потрібно приховати або показати їх усі (крім одного).

Приховати весь аркуш легко, але як показати всі 200 аркушів перемикача?

Я знаю, що можу написати макрос, щоб показати аркуші, але для того, щоб їхати таким чином, я повинен витягнути всі назви аркушів, щоб продовжувати.

Не впевнений, чому вам доведеться витягти всі назви аркушів.

Приховування простирадла

AFAIK є два способи зробити це.

Виберіть усі аркуші, які ви хочете приховати, а потім клацніть правою кнопкою миші та виберіть "сховати".
Або на вкладці "Домашня сторінка" у групі " Осередки " натисніть " Формат" , а в розділі " Видимість" натисніть " Сховати та скасувати" та натисніть " Сховати аркуш" .

Інший спосіб зробити це - циклічність аркушів простим макросом, приховування всіх аркушів крім обраного на даний момент:

Sub hideSheets()
Dim wS As Worksheet, Current As String
Current = ActiveSheet.Name
For Each wS In Worksheets
    If Not wS.Name = Current Then
        wS.Visible = False
    End If
Next
End Sub

Показ аркушів

Щоб знову показати всі аркуші, код ще простіший.

Sub showSheets()
Dim wS As Worksheet
For Each wS In Worksheets
        wS.Visible = True
Next
End Sub

Додатково

Якщо ви хочете націлити на конкретний аркуш, який не є на даний момент активним (щоб приховати все, окрім, або показати все, окрім), просто змініть Current = ActiveSheet.Nameна, Current = InputBox("Enter Sheet Name")а ви отримаєте назву аркуша на вхідному полі.