Log-Datei erfaßt, wer mit Dokumenten gearbeitet hat

Manchmal ist es nötig, herauszufinden, wer auf ein bestimmtes Dokument zugegriffen hat und wann dieser Zugriff erfolgte. Mit einem Makro kann man Word dazu bewegen, daß jedesmal, wenn in dieser Textverarbeitung eine Datei geöffnet wird, das aktuelle Datum und die Zeit gefolgt vom Anwendernamen und dem Namen der Datei in einer eigenen Textdatei protokolliert werden.

Wenn Sie das Makro (siehe unten) verwenden wollen, sollten Sie die Zeile mit der Pfadangabe (»Open ...«) an das Verzeichnis anpassen, das Sie benutzen wollen.

Beachten Sie außerdem, daß das Makro nur dann funktioniert, wenn Sie ihm den Namen »DateiÖffnen« geben. Dieser Makroname ersetzt den Befehl »DateiÖffnen«, bis Sie das Makro löschen oder umbenennen.

Um das vom Makro angelegte Protokoll anzusehen, öffnen Sie die Datei OPEN.TXT mit einem geeigneten Editor. Verwenden Sie dafür Word, müssen Sie in der Dialogbox »Datei | Öffnen« unter Dateityp die Option »Alle Dateien« einstellen.

Makrolisting DateiÖffnen:

Sub MAIN

On Error Goto ende

user$ = Umgebung$(“LOGIN_NAMEö)

if user$=öö then user$=öUSERö

t$ = Str$(Tag(Jetzt()))

m$ = Str$(Monat(Jetzt()))

j$ = Str$(Jahr(Jetzt()))

s$ = Str$(Stunde(Jetzt()))

min$ = Str$(Minute(Jetzt()))

sec$ = Str$(Sekunde(Jetzt()))

Dim dlg As DateiÖffnen

GetCurValues dlg

Dialog dlg

name$ = dlg.Name

DateiÖffnen dlg

Open “c:\open.txtö For Append As #1

Print #1, t$ + “.ö + m$ + “.ö + j$ + “/ö + s$ + “:ö + min$+ min$ + “:ö + sec$ + “: “ + user$ + “ öffnet “ + name$

Close #1

ende:

End Sub