AW: Wer hat gespeichert
15.06.2009 13:10:08
PointOfView
Hallo Thomas,
Du könntest ein Log-File im Hintergrund mitlaufen lassen, dass in eine Textdatei schreibt, wer, wann darin gearbeitet und die Datei wieder geschlossen bzw. gespeichert hat. Vielleicht hilft das?
Im VBA-Editor erstellt Du ein Klassenmodul mit dem Namen CAppLog und fügst folgenden Code ein:
Public WithEvents app As Application
Private Sub app_WorkbookOpen(ByVal WBook As Excel.Workbook)
sUser = Environ("username")
sComputer = Environ("computername")
Benutzer = Application.UserName
Datum = Format(Now, "dd.mm.yyyy")
Uhrzeit = Format(Now, "HH:MM")
DateiName = WBook.FullName
Open "C:\Dokumente und Einstellungen\Eigene Dateien\Test.txt" For Append As #1 'Den Pfad _
und Dateinamen musst Du auf Deine Bedürfnisse anpassen
Print #1, Benutzer & vbTab & "Netzwerkname " & sUser & vbTab & sComputer & vbTab & Datum _
& vbTab & Uhrzeit _
& vbTab & DateiName
Close #1
End Sub
Private Sub App_WorkbookBeforeClose(ByVal WBook As Workbook, _
Cancel As Boolean)
sUser = Environ("username")
sComputer = Environ("computername")
Benutzer = Application.UserName
Datum = Format(Now, "dd.mm.yyyy")
Uhrzeit = Format(Now, "HH:MM")
DateiName = WBook.FullName
Open "C:\Dokumente und Einstellungen\Eigene Dateien\Test.txt" For Append As #2 'Den Pfad _
und Dateinamen musst Du auf Deine Bedürfnisse anpassen
Print #2, Benutzer & vbTab & "Netzwerkname " & sUser & vbTab & sComputer & vbTab & _
Datum & vbTab & Uhrzeit _
& vbTab & "Aus Datei geloggt"
Close #2
End Sub
In der Arbeitsmappe erstellt Du folgenden Code:
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
Gruss
PointOfView (Oliver)