Microsoft Excel:

  Таблицы и VBA. Справочник.
  Вопросы и Ответы. Советы. Примеры.
Меню FAQ | Макросы | Sheets & Worksheets


Rambler's Top100


Counter CO.KZ


    [1] [2]

  1. Как перебрать листы в рабочей книге и определить их скрытность ? NEW 18.01.2019
    [1] [2]


  • Ответ : Скачать пример
  • Private Sub InfoHiddenSheet()
        Dim iList As Object
        For Each iList In ActiveWorkbook.Sheets
            Select Case iList.Visible
                Case True 'xlSheetVisible
                   MsgBox "Видимый лист", , iList.Name
                Case xlHidden 'xlSheetHidden Or False
                   MsgBox "Скрытый лист", , iList.Name
                Case xlVeryHidden 'xlSheetVeryHidden
                   MsgBox "Это очень скрытный лист", , iList.Name
            End Select
        Next
    End Sub

    Воспроизведение любых опубликованных здесь материалов возможно только с письменного разрешения автора : Microsoft Excel 95, 97, 2000, XP

    © 2004-2019 Климов П.Ю. Все права защищены. WebDesign & Error's Klimoff