Когда вы выбираете скрытие листов в книге, Excel позволяет вам скрыть несколько листов одним действием: все, что вам нужно сделать, это выбрать листы, прежде чем фактически выполнять скрытие. Однако отображение рабочих листов — это совсем другая история. Excel позволяет отображать только по одному.

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

Единственный способ обойти это — использовать макрос для отображения рабочих листов. Следующий макрос VBA покажет все рабочие листы в текущей книге:

Sub UnhideAllSheets()

Dim wsSheet As Worksheet

For Each wsSheet In ActiveWorkbook.Worksheets         wsSheet.Visible = xlSheetVisible     Next wsSheet End Sub

Если вы предпочитаете не отображать все листы сразу, вы можете заставить макрос запрашивать каждый скрытый лист, а затем отображать каждый, который вы согласны показать. С этой задачей справится следующий макрос:

Sub UnhideSomeSheets()

Dim sSheetName As String     Dim sMessage As String     Dim Msgres As VbMsgBoxResult

For Each wsSheet In ActiveWorkbook.Worksheets         If wsSheet.Visible = xlSheetHidden Then             sSheetName = wsSheet.Name             sMessage = "Unhide the following sheet?" _               & vbNewLine & sSheetName             Msgres = MsgBox(sMessage, vbYesNo)

If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible         End If     Next wsSheet End Sub

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2603) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Unhiding_Multiple_Worksheets [Отображение нескольких рабочих листов].