Бывают случаи, когда вы хотите, чтобы верхний или нижний колонтитул содержал дату последнего сохранения книги. Обычно это не та информация, которую вы можете установить в Excel. Однако вы можете использовать следующий макрос, чтобы поместить информацию в нужное место:

Sub MyFooter()

Dim mh As String On Error Resume Next mh = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

If Err = 440 Then    Err = 0    mh = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

If Err = 440 Then       Err = 0       mh = "Not Set"

End If End If mh = Left(mh, 8)

ActiveSheet.PageSetup.LeftFooter = "Saved: " & mh End Sub

В этом макросе следует отметить ряд моментов. Прежде всего, он пытается определить последнюю дату (и время) сохранения книги. Если эта информация не может быть определена, извлекается дата создания. И, наконец, если это не удается найти, в нижнем колонтитуле устанавливается значение «Не сохранено».

Обратите внимание, что в этом макросе выполняется некоторая обработка ошибок. Причина в том, что Excel вернет ошибку, если определенное свойство документа (в данном случае BuiltinDocumentProperty) не установлено. Ошибка должна быть перехвачена и обработана, что и делается здесь.

Обратите внимание, что после запуска этот макрос установит в левом нижнем колонтитуле желаемую информацию. Эта информация не изменится снова, пока вы снова не запустите макрос. Таким образом, если вам всегда нужна актуальная дата в нижнем колонтитуле, вам следует либо запускать макрос периодически (возможно, прямо перед печатью), либо настроить его на запуск всякий раз, когда вы открываете документ.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2055) применим к Microsoft Excel 97, 2000, 2002 и 2003.