[Iska]

достаточно это сделать один раз, а потом исключить из кода. »

Теоретически — да. На практике же надо смотреть, есть ли какая-либо защита у ячейки, рабочего листа, книги. Ибо строка/столбец могут быть банально удалены.

[Odisseus]

А как вставить дату в колонтитул?

[Iska]

Код:

Private Sub Workbook_Open()
    Dim objWorksheet As Worksheet
    
    With ThisWorkbook
        For Each objWorksheet In .Worksheets
            objWorksheet.PageSetup.CenterHeader = .BuiltinDocumentProperties.Item("Last Save Time")
        Next
    End With
End Sub

[Odisseus]

Iska,
Не работает... Если заменить CenterHeader на CenterFooter, то по идее, должно отобразиться в нижнем колонтитуле. Но ничего нет ни сверху ни снизу

[Iska]

Судя по PageSetup.CenterFooter Property (Excel) — объектная модель не менялась.

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

[Odisseus]

Буквально »

Ну, все просто - ПКМ на вкладке листа, view code, вставил код в редактор, сохранил, закрыл редактор, внес изменения в книгу, сохранил, закрыл книгу. Открываю книгу, а колонтитул пуст... Макросы включены.

[okshef]

Odisseus, попробуйте вставить код в процедуру Workbook_BeforeClose

[Iska]

ПКМ на вкладке листа, view code, вставил код в редактор »

В какой именно модуль вставляли? У меня есть подозрение, что Вы вставили код в модуль листа, а не книги.

P.S. Прошлый раз ведь проблем с этим не было?

[Odisseus]

В какой именно модуль вставляли? »

Собственно, скрин тут.
ПКМ на ThisWorkbook-View code, вставил туда, сохранил. Ничего не изменилось. Макросы проверил, включены все.

В прошлый раз мы ссылались на ячейки, а сейчас на колонтитул.

[Iska]

ПКМ на ThisWorkbook-View code, вставил туда, сохранил. »

А на скриншоте — не «ThisWorkbook», а «Sheet1» .