按下alt+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
简单有效的方法如下:
将电脑的日期时间改为需要修改excel文件最后访问的时间;
打开excel文件,随便输入文字,然后删除,点击保存;
此时excel文件最后访问时间就变更了。