176 читали · 5 лет назад
Отобразить все скрытые листы в книге Excel
Стандартными средствами Excel, открыть сразу все скрытые листы книги не получится, а так хочется. Решение перед вами. Копируйте код и сохраните его в Личной книге макросов. Sub ShowAllSheets() Dim sht 'Отображаем все скрытые листы в книге On Error Resume Next For Each sh In ActiveWorkbook.Sheets sh.Visible = True Next sh End Sub Открыть...