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

Private Sub Workbook_SheetChange(ByVal _   Sh As Object, ByVal Target As Excel.Range)

ActiveSheet.PageSetup.CenterFooter = _       "Worksheet Last Changed: " & _       Format(Now, "mmmm d, yyyy hh:mm")

End Sub

Макрос приводит к тому, что каждый нижний колонтитул на каждом листе в книге имеет отдельные даты и время, поскольку каждый лист будет обновляться в разное время. Вы можете изменить свойство назначения (.CenterFooter) на одно из других свойств верхнего или нижнего колонтитула (.LeftHeader, .CenterHeader, .RightHeader, .LeftFooter, .RightFooter) по желанию.

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

Лучший способ выполнить задачу — добавить макрос к объекту ThisWorkbook, который запускается непосредственно перед сохранением книги:

Private Sub Workbook_BeforeSave(ByVal _   SaveAsUI As Boolean, Cancel As Boolean)

Dim sht     For Each sht In Sheets         sht.PageSetup.CenterFooter = _           "Workbook Last Saved: " & _           Format(Now, "mmmm d, yyyy hh:mm")

Next End Sub

Этот макрос проходит по каждому листу в книге и изменяет каждый центральный нижний колонтитул, чтобы указать дату сохранения книги.

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

Этот совет (11604) применим к Microsoft Excel 2007, 2010, 2013 и 2016.

Вы можете найти версию этого совета для более старого интерфейса меню Excel здесь: link: / excel-Date_Last_Edited [Date Last Edited].