Excel VBA Макросы: Добавление колонтитула в закрытый лист.

Автор SergeyPetrov, 05 июля 2019, 09:54

SergeyPetrov

Этот код  вставляет колонтитул в открытый лист:
Sub Signature()
    With ActiveSheet.PageSetup
        .CenterHeader = "Конфиденциально. Только для служебного использования" & ""
    End With
End Sub

Но как быть в случае, если лист не открыт?

Администратор

В некоторых случаях нет необходимости переходить на лист, чтобы с ним что-то сделать.
К нужному листу можно обратиться по имени, по порядковому номеру.
Например:
Worksheets("Лист1").PageSetup
Worksheets(1).PageSetup

Обратите внимание, что порядковый номер листа не заключается в кавычки. Если заключить в кавычки, то будет подразумеваться имя листа, а не порядковый номер.

Пример:
Sub Signature()
    With Worksheets("Лист1").PageSetup
        .CenterHeader = "Конфиденциально. Только для служебного использования" & ""
    End With
End Sub