Как скрыть все листы в ЕКСЕЛЕ кроме определенного списка

[sasha_prof]

Доброго всем времени суток.

Есть список листов которые при выполнении макроса не нужно скрывать, а всего списка названий листов нет.
Возможно ли скрыть все листы в ЕКСЕЛЕ кроме определенного списка???

[nilem]

Попробуйте так

Sub ertert()
Dim wsh As Worksheet, NoHid, i As Long, j As Long
NoHid = Array("Лист2", "Лист4", "Лист1")    'листы, которые не надо скрывать
For Each wsh In ThisWorkbook.Worksheets
    j = 0
    For i = 0 To UBound(NoHid)
        If wsh.Name <> NoHid(i) Then j = j + 1
    Next i
    If j > UBound(NoHid) Then wsh.Visible = False
Next wsh
End Sub

[IgorGO]

или так:

Sub HideNoList()
Dim wsh As Worksheet
Const Lst as string = "Лист2__Лист4__Лист1__")    'листы, которые не надо скрывать + 2 подчеркивания после имени листа
For Each wsh In ThisWorkbook.Worksheets
  wsh.Visible = instr(lst, wsh.name & "__")>0
Next wsh
End Sub