如何记录excel该文件,每次是用户打开和时间
我公司有些共享excel文件,有些文件是下密码的。只有几个人知道。最近感觉有其他同事知道了。请问在那个excel文件记录每次是那个用户打开的时间吗?...
我公司有些共享excel文件,有些文件是下密码的。只有几个人知道。最近感觉有其他同事知道了。请问在那个excel文件记录每次是那个用户打开的时间吗?
展开
2个回答
展开全部
打开那个EXCEL文件,插入一个新的工作表,重命名为"record”,把该工作表隐藏(主要目的是别让别人看到这个工作表),然后按ALT+F11,双击THISWORKBOOK,添加以下代码:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Worksheets("record")
.Range("A65536").End(xlUp).Offset(1, 0) = Environ("COMPUTERNAME")
.Range("A65536").End(xlUp).Offset(0, 1) = Environ("UserName")
.Range("A65536").End(xlUp).Offset(0, 2) = Date
.Range("A65536").End(xlUp).Offset(0, 3) = Time
End With
ThisWorkbook.Save
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
保存该文件即可,每次有人打开工作表,在"record"那个工作表就会自动记录打开者的计算机名、用户名、打开日期,打开时间,你想看的话就可以取消工作表隐藏来看。
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Worksheets("record")
.Range("A65536").End(xlUp).Offset(1, 0) = Environ("COMPUTERNAME")
.Range("A65536").End(xlUp).Offset(0, 1) = Environ("UserName")
.Range("A65536").End(xlUp).Offset(0, 2) = Date
.Range("A65536").End(xlUp).Offset(0, 3) = Time
End With
ThisWorkbook.Save
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
保存该文件即可,每次有人打开工作表,在"record"那个工作表就会自动记录打开者的计算机名、用户名、打开日期,打开时间,你想看的话就可以取消工作表隐藏来看。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询