2016 - [решено] Excel - VBA - скрытие всех листов кроме перечисленных

[a_axe]

Vadikan, можно воспользоваться кодом ниже, благо коллега Iska обозначил оптимальные пути решения .

Код нужно скопировать в модуль ThisWorkbook. Все листы рабочей книги, не входящие в список листов А, будут скрываться при каждом открытии файла.



Код:

Код: Выделить всё

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim strNames As String
    strNames = "Main1,Main2,Main3":  ' Перечень листов через запятую, который можно менять
    strNames = "," & strNames & ","
    For Each ws In ThisWorkbook.Worksheets
        If Not InStr(strNames, "," & ws.Name & ",")  0 Then
            ws.Visible = xlVeryHidden
        End If
    Next ws
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    With Worksheets.Item(Target.Range.Value)
        .Visible = True
        .Activate
        .Range(Target.SubAddress).Select
    End With
End Sub

[Vadikan]

Отлично, спасибо!