有時需要在工作表的頁眉或頁腳中顯示最后修改的日期和時間，在Excel中可以用下面的VBA代碼來實現，步驟如下：
例如在頁眉的中部顯示工作簿最后保存時間，按Alt+F11打開VBA編輯器，雙擊“工程”窗口中的“ThisWorkbook”，然后在代碼窗口中粘貼下列代碼：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = "最后修改時間：" + Format(Now, "yyyy-mm-dd hh:mm:ss")
End Sub
這樣，每次保存工作簿，該代碼會在當前活動工作表的頁眉中顯示最后修改的日期和時間。
如果要在單元格中顯示最后修改時間，可用下面的自定義函數，方法是在VBA編輯器中單擊菜單“插入→模塊”，在代碼窗口中輸入下面的代碼：
Function LST()
Application.Volatile
LST = Format(Now, "yyyy-mm-dd hh:mm:ss")
End Function
然后保存工作簿，在單元格中輸入公式：
=LST()
將返回最后保存的日期和時間。Application.Volatile語句將該自定義函數標記為易失性函數，其作用是當任意單元格進行計算時，該自定義函數都將重新進行計算。
