Logbuch
25.10.2004 15:02:16
peter
mit folgenden Prozeduren soll eine lückenlosen Aufzeichnung der Benutzer einer Datei aufgezeichnet werden.
Leider wird das nicht 100%ig durchgeführt.Meine Vermutung ist, daß durch irgendwelche Makros, die in anderen Dateien laufen, diese Aufzeichnung behindert wird.
Wie kann man diese Makros, so verbessern, daß es auch 100%ig funktioniert?
Danke für die Hilfe.
Peter d
Const logfile = "S:\Logistik\Auftragsabwicklung\MAYER\logfile.txt"
Private Sub Workbook_Open()
Sheets("Start").Select
Range("F3").Select
Open logfile For Append As #1
Print #1, Now() & ": geöffnet von " & Environ("USERNAME")
Close #1
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Open logfile For Append As #1
Print #1, Now() & ": geschlossen von " & Environ("USERNAME")
Close #1
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Open logfile For Append As #1
Print #1, Now() & ": gespeichert von " & Environ("USERNAME")
Close #1
End Sub