Clientüberwachung

So ginge es auch, denke ich:
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

http://www.schmittis-page.de/excel/vba/samples/protokoll.zip

saludos
gnarff

Hallo DaBoy,

evtl. genügt dir auch eine Ausgabe über die Ereignisprotokolle:
SO WIRD´S GEMACHT: Überwachen des Benutzerzugriffs auf Dateien, Ordner und Drucker in Windows XP

Gruß,
gemini

Halli Hallo,

ich bin gerade dabei, eine Überwachung für Dateien einzurichten.
Das ganze ist soweit klar, habe aber dennoch eine Frage:

Die ursprünglichen Rechte oder Sicherheitseinstellungen bleiben hiervon unberührt, oder?
Ich möchte nicht das Problem haben, wenn ich das Häkchen bei "Schreiben" und "Löschen" setze, was ja zur Überwachung dienen sollen, das die User das auch ausführen können, wenn sie es anklicken.
Der Hintergrund: Zusehen, was die User probieren oder versuchen.

Ich hoffe, es kann einer helfen,

LG
Mark