Kennt jemand für ein Microsoft Office Dokument ein Makro das einen Klick-Counter enthält bzw. wie man sonst herausfinden kann wie oft ein Dokument von Usern geöffnet wird?

  
  Dim AppObject As New CAppLog

   Private Sub Workbook_Open()
      Set AppObject.app = Application
   End Sub

   Private Sub Workbook_BeforeClose(Cancel As Boolean)
      Set AppObject.app = Nothing
   End Sub

   Public WithEvents app As Application

   Private Sub app_WorkbookOpen(ByVal WBook As Excel.Workbook)
      Benutzer = Application.UserName
      Datum = Format(Now, "dd.mm.yyyy")  
      Uhrzeit = Format(Now, "HH:MM")  
      Dateiname = WBook.FullName
      Open "c:\excel-zugriffe.txt" For Append As #1  
        Print #1, Benutzer & vbTab & Datum & vbTab & Uhrzeit _
          & vbTab & Dateiname
      Close #1
   End Sub