[okshef]

Меню "Вставка" - "Колонтитулы" (выбрать верхний или нижний) - "Текущая дата" - не подойдет?

[Twister83]

okshef, при открытии сразу заменяет на текущую, старую не увидеть.

Вычитал макрос по поводу даты, можно время добавить также:

В модуль ЭтаКнига

Код:

Option Explicit

Private Sub Workbook_Open()
activesheet.range("A1").Value = Format(Date, "dd.mm.yyyy")

End Sub

[Iska]

Twister83, угу. Только данные брать другие. Примерно так:

Код:

Private Sub Workbook_Open()
    With ThisWorkbook.Worksheets.Item(1).Cells(1, 1)
        .Value = ThisWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
        .NumberFormat = "dd/mm/yy h:mm;@"
    End With
End Sub

«ThisWorkbook» — ссылка на ту рабочую книгу, которая содержит данный макрос.

[Twister83]

Iska, что-то ошибки выдает при компиляции, код вставлять без изменений?

[Iska]

Twister83, я пробовал на имеющемся у меня Office 2003, так что, теоретически, в Вашей версии вполне могут быть отличия в объектной модели. Перед первым использованием рабочая книга должна быть сохранена.

[Odisseus]

Всем спасибо за ответы! Есть все же несколько непоняток.
Iska, в вашем примере, как вывести дату в ячейку, ту же А1, как в примере Twister83 activesheet.range("A1") И как запустить потом этот макрос? Или он будет выполняться автоматически при сохранении книги?

[Iska]

Iska, в вашем примере, как вывести дату в ячейку, ту же А1, как в примере Twister83 activesheet.range("A1") »

Как раз и выводится дата последнего сохранения («.BuiltinDocumentProperties.Item("Last Save Time")») рабочей книги, в которой находится данный макрос («ThisWorkbook»), в ячейку «A1» («.Cells(1, 1)») первого рабочего листа («.Worksheets.Item(1)»). Затем та же ячейка форматируется для правильного отображения даты («.NumberFormat = "dd/mm/yy h:mm;@"»).

Поскольку код находится в модуле «ЭтаКнига» в процедуре «Workbook_Open()» — он будет (при не отключённых макросах) выполняться каждый раз при открытии рабочей книги.

Если нужно, чтобы код выполнялся и при сохранении — можно добавить аналогичный код в процедуру «Workbook_BeforeSave()». Но, естественно, тут уже надо будет предусмотреть тот факт, что перед первым сохранением свойство «Last Save Time» будет попросту недоступно.

[Odisseus]

Iska, очень информативно, спасибо огромное!

[okshef]

Затем та же ячейка форматируется для правильного отображения даты »

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