2010 - [решено] Excel 2010 - Как вставить в книгу дату ее последнего изменения?

[okshef]

Цитата okshef:



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

2010 - [решено] Excel 2010 - Как вставить в книгу дату ее последнего изменения?

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

[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]

Цитата Iska:



Буквально

2010 - [решено] Excel 2010 - Как вставить в книгу дату ее последнего изменения?

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

[okshef]

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

[Iska]

Цитата Odisseus:



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

2010 - [решено] Excel 2010 - Как вставить в книгу дату ее последнего изменения?

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



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

[Odisseus]

Цитата Iska:



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

2010 - [решено] Excel 2010 - Как вставить в книгу дату ее последнего изменения?

Собственно,

скрин тут

.

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



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

[Iska]

Цитата Odisseus:



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

2010 - [решено] Excel 2010 - Как вставить в книгу дату ее последнего изменения?

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