Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
[A1] = Now()
[A2] = Now()
Range("A1").Select
Selection.NumberFormatLocal = "h:mm;@"
Range("A2").Select
Selection.NumberFormatLocal = "yyyy/m/d"
End If
End Sub
可以实现,希望能帮到你~
没有修改的判定是很困难的,你需要对所有数据在打开的时候存一个副本 然后再逐一比对 因为系统没有提供这样的方法直接判定 所以你这个方案基本不可完成 每次保存记录时间那是没问题的
能做到的顶多就是对指定的区域 进行是否改动的判定 这样判定区域小一点 还有可能实现