Макрос Ексель

[Якупов Маман]

Помагите пожалуста, как можно делат так чтоб когда отрыл файл все листы скрылась (xlShetVeryHidden) а один стартовый осталась видным. Помагите с макросом.

Всегда когда открывалась этот файл открытым оставалась только старт остальные автоматический скрылась (xlShetVeryHidden)

[Serge_Bliznykov]

а если макросы отключены (а они зачастую отключены) - что будет?

а почему не хотите спрятать все листы, кроме одного нужного и после этого сохранить документ?
тогда все листы и так будут скрыты, без всяких манипуляций с макросами.

[Якупов Маман]

Я хотел создать такой файл чтоб всегда при открыте файла появлялась только один выбранный (Старт) лист

[Serge_Bliznykov]

вот такой файл:
СтартVeryHidden.xlsx

он получен с помощью такого макроса:

Sub HiddenAllListsWithoutActive()
  Dim wsSh As Object, wsAct As Object
  Dim wbAct As Workbook
  
  Set wbAct = ThisWorkbook
  Set wsAct = wbAct.ActiveSheet

  For Each wsSh In wbAct.Sheets
     If (wsSh.Name <> wsAct.Name) Then
             wsSh.Visible = xlVeryHidden
     End If
  Next wsSh

End Sub

это макрос прячет все листы, кроме активного.

[Якупов Маман]

Можно оставит не активную а именно выбранную лист

[Serge_Bliznykov]

Сообщение от Якупов Маман

Можно оставит не активную а именно выбранную лист

можно.

вот тут укажите имя листа, который нужно оставить

Сообщение от Serge_Bliznykov

If (wsSh.Name <> wsAct.Name) Then

If (wsSh.Name <> "Имя листа, который нужно оставить") Then