Зайдем на вкладку «Разработчик» и найдём «Свойства».
![]()
На вкладке Aiphabetic перейдем на пункт «Visible» и выберем 2 - xlSheetVeryHidden. Обратите внимание, что один Лист должен будет обязательно остаться. Открыть все Листы теперь можно с помощью макроса.
Sub Hidden() Dim wb Set wb = ThisWorkbook For i = 1 To wb.Sheets.Count Worksheets(i).Visible = True Next i End Sub