作为设置工作表的一部分，您可能希望页眉或页脚包含工作簿的最后编辑日期。 Excel不会保留此信息，但是它允许您在发生某些事件（例如对工作簿的更改）时执行宏。您需要做的就是在VBA编辑器中的ThisWorkbook对象中添加诸如以下的宏：

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培训的来源。

本技巧（3352）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

上次编辑日期。