跟踪多个Excel文件中的活动

Question

我负责共享文件夹中的10个Excel文件。我很好奇，谁在看我的文件，他们到底在看什么表格，在什么时间范围内。请问有没有可能跟踪这些活动？我只是在想，可以用连接到所有10个excel文件的VBA代码创建一个额外的文件，并以某种方式提取数据。然而，我不知道如何开始。

谢谢。

Answer 1

您可以对所有10个excel文件使用以下代码。每当打开任何文件时，都会执行以下代码并将数据写入Monitor文件。

Private Sub Workbook_Open()
Dim LR As Long
With Sheets("Sheet1")
file_name = ThisWorkbook.FullName
open_time = Time
user_name = Environ("UserName")
End With
Set targetwb = Workbooks.Open("D:Test.xlsx")
targetwb.Sheets("Sheet1").Cells(1, "A").Value = open_time 
targetwb.Sheets("Sheet1").Cells(2, "A").Value = user_name
targetwb.Sheets("Sheet1").Cells(3, "A").Value = file_name
targetwb.Save
targetwb.Close
End Sub

您可以获取Monitor文件的last row number，然后附加新数据。为了安全起见，您可以将password protection添加到每个文件的宏中，这样就没有人能够更改您的代码。