最简单的方式是在工作薄的Open事件和BeforeClose事件中保存下当时的系统时间：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet3.Range("B1") = Now()
End Sub
Private Sub Workbook_Open()
Sheet3.Range("A1") = Now()
End Sub
以上代码是把打开时间和关闭时间分别存在了工作表sheet3的A1和B1单元格中，你也可以根据需要存在合适的地方
1.看操作系统最近打开的文档,上面应该有时间;
2.进行加密,这样别人就打不开了;
3.自己写一个宏,打开时自动记录,关闭时也记录时间就可以了.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024