在Excel中按选项卡跟踪使用情况
我在我的许多Excel文件中添加了使用日志跟踪功能(下面是VBA代码)。它们当前显示哪个用户打开特定文件以及打开文件的时间。然而,我正在努力收集更多的信息。具体地说,我正在寻找一种方法来记录用户导航到哪些选项卡(除了他们打开文件的事实)。这样做的主要目的是消除在不定期引用的选项卡上创建展示所产生的工作 这是我当前用于创建通用使用日志以查看谁打开文件(以及何时打开)的代码在Excel中按选项卡跟踪使用情况,excel,vba,tabs,Excel,Vba,Tabs,我在我的许多Excel文件中添加了使用日志跟踪功能(下面是VBA代码)。它们当前显示哪个用户打开特定文件以及打开文件的时间。然而,我正在努力收集更多的信息。具体地说,我正在寻找一种方法来记录用户导航到哪些选项卡(除了他们打开文件的事实)。这样做的主要目的是消除在不定期引用的选项卡上创建展示所产生的工作 这是我当前用于创建通用使用日志以查看谁打开文件(以及何时打开)的代码 此工作簿代码表中的这组子过程应涵盖大多数情况 Option Explicit Private Sub Workbook_Op
此工作簿代码表中的这组子过程应涵盖大多数情况
Option Explicit
Private Sub Workbook_Open()
Open ThisWorkbook.Path & "\Usage.log" For Append As #2
Print #2, Application.UserName, Now & " open"
Print #2, Application.UserName, Now, ActiveSheet.Name & " activate"
Close #2
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Open ThisWorkbook.Path & "\Usage.log" For Append As #2
Print #2, Application.UserName, Now & " close"
Close #2
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Open ThisWorkbook.Path & "\Usage.log" For Append As #2
Print #2, Application.UserName, Now, Sh.Name & " activate"
Close #2
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Open ThisWorkbook.Path & "\Usage.log" For Append As #2
Print #2, Application.UserName, Now, Sh.Name & " deactivate"
Close #2
End Sub
Option Explicit
Private Sub Workbook_Open()
Open ThisWorkbook.Path & "\Usage.log" For Append As #2
Print #2, Application.UserName, Now & " open"
Print #2, Application.UserName, Now, ActiveSheet.Name & " activate"
Close #2
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Open ThisWorkbook.Path & "\Usage.log" For Append As #2
Print #2, Application.UserName, Now & " close"
Close #2
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Open ThisWorkbook.Path & "\Usage.log" For Append As #2
Print #2, Application.UserName, Now, Sh.Name & " activate"
Close #2
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Open ThisWorkbook.Path & "\Usage.log" For Append As #2
Print #2, Application.UserName, Now, Sh.Name & " deactivate"
Close #2
End Sub