怎么显示excel最后修改日期

按下zdalt+F11
你试试看内。thisworkbook中的如下代码：容
Public flag As Boolean
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If flag = True Then
Sheet1.[a1] = Format(FileDateTime(ThisWorkbook.FullName), "HH:MM:SS")
Sheet1.[a2] = Format(FileDateTime(ThisWorkbook.FullName), "YYYY-MM-DD")

End If
End Sub

Private Sub Workbook_Open()
flag = False
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
flag = True
End Sub

在windows下面可以看到excel文件最后一次修改的时间，如果要看到每次修改的时间，只能用VBA写程序来记录下修改时间。

（望楼主采纳哦）

如需在一个单元格中自动显示 最后一次保存文档的日期，需要用到 VBA 的 Workbook.BeforeSave 事件程序

示例

本示例在保存工作簿之前询问用户是否保存。

VBA 代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ 
       Cancel as Boolean) 
   a = MsgBox("Do you really want to save the workbook?", vbYesNo) 
   If a = vbNo Then Cancel = True 
End Sub

针对 “如何在excel表中的一个单元格中自动显示最后一次保存文档时当天的日期” 这个问题，  同样使用BeforeSave 事件代码, 操作方法：

右键单击工作表标签，查看代码，   视图---工程资源管理器，双击  Thisworkbook,

将如e69da5e6ba90e79fa5e98193335下代码 复制到 右边代码窗口：（假设 在Sheet1  A1 单元格记录保存时间)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").[A1] = Date
End Sub

保存工作薄为启用宏文件， 且文件开启宏，  即可 在Sheet1 A1单元格 记录 最后一次保存时间。

开启宏 的方法：

菜单栏-----文件 -----Excel选项---- 信任中心---信任中心设置 ---宏设置  ：  启用所有宏，   保存， 关闭Excel 文件，    再次打开 即已启用宏。

把系统日期和时间调整到过去，再打开、保存文件。