Ein kleines Klassenmodul kann
behilflich sein,
alle Dateien zu protokollieren, die geöffnet werden.
Dieses Beispiel erstellt die Datei "c:\excel-zugriffe.txt"
und speichert darin Benutzernamen, Datum, Uhrzeit und den
Dateinamen.
Wenn dieses Beispiel als Add-In installiert wird,
wird also jeder Dateizugriff protokolliert.
Fügen Sie diese Zeilen unter
"DieseArbeitsmappe" ein:
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
Fügen Sie diese Zeilen in ein Klassenmodul mit dem Namen "CAppLog" ein:
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
|
Download