Отслеживание использования с помощью Tab в Excel

Question

Я добавил функцию отслеживания журнала использования во многие из моих файлов Excel (код VBA ниже).В настоящее время они показывают, какой пользователь открывает определенный файл и когда они открыты.Однако я пытаюсь собрать дополнительную информацию.В частности, я ищу способ записи, на какие вкладки переходят пользователи (в дополнение к тому факту, что они открыли файл).Основная цель этого состоит в том, чтобы исключить работу, которая является результатом создания экспонатов на вкладках, на которые нет регулярных ссылок.

Это код, который я сейчас использую для создания общего журнала использования, чтобы узнать, кто и когда открывает файл;

Private Sub Workbook_Open()

Open ThisWorkbook.Path & "\Usage.log" For Append As #2
    Print #2, Application.UserName, Now
    Close #2

End Sub

Answer 1

Этот набор подпроцедур в кодовой таблице ThisWorkbook должен охватывать большинство сценариев.

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