Username (von Windows) bei Zugriff auf eine bestimmte Datei mitloggen
Hallo!
Besteht die Möglichkeit, den Usernamen vom Windowskonto bei einem Zugriff auf eine bestimmte Excel Datei mit Datum und Uhrzeit zu protokollieren?
Vielleicht gibt es eine rasche VBA Lösung für das?
Danke
Besteht die Möglichkeit, den Usernamen vom Windowskonto bei einem Zugriff auf eine bestimmte Excel Datei mit Datum und Uhrzeit zu protokollieren?
Vielleicht gibt es eine rasche VBA Lösung für das?
Danke
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 64732
Url: https://administrator.de/contentid/64732
Ausgedruckt am: 19.11.2024 um 19:11 Uhr
3 Kommentare
Neuester Kommentar
Hallo,
Windows kann selbst eine Überwachung von Dateien durchführen. Die Ereignisse landen dann im Ereignisprotokoll-> Sicherheitsprotokoll.
Ich würde diesen Ansatz wählen, da er das normale Arbeiten nicht stört und dann eher nach einem Tool suchen, mit dem das Ereignisprotokoll besser ausgewertet werden kann.
Wie die Überwachung aktiviert wird, hängt von der Windows-Version ab. Grundsätzlich muss man in der Systemrichtlinie das ganze erstmal aktivieren und dann am jeweiligen Objekt (Verzeichnis oder Datei) die Überwachung einschalten.
Gruß,
Schorsch
Windows kann selbst eine Überwachung von Dateien durchführen. Die Ereignisse landen dann im Ereignisprotokoll-> Sicherheitsprotokoll.
Ich würde diesen Ansatz wählen, da er das normale Arbeiten nicht stört und dann eher nach einem Tool suchen, mit dem das Ereignisprotokoll besser ausgewertet werden kann.
Wie die Überwachung aktiviert wird, hängt von der Windows-Version ab. Grundsätzlich muss man in der Systemrichtlinie das ganze erstmal aktivieren und dann am jeweiligen Objekt (Verzeichnis oder Datei) die Überwachung einschalten.
Gruß,
Schorsch
Hallo viewpoint!
Dann soll das eher sowas werden:
Öffne per Rechtsklick auf das Tabellenregister und Auswahl von "Code anzeigen" das Codefenster für die jeweilige Tabelle und füge den Code dort ein, lege die gewünschte Spalte für das Eintragen des Timestamps fest und korrigiere bei Bedarf die Zeile, ab welcher Änderungen (also zB auch das Löschen eines Zellinhaltes) protokolliert werden sollen.
Grüße
bastla
Dann soll das eher sowas werden:
Private Sub Worksheet_Change(ByVal Target As Range)
Const Sp = "H" 'Spalte für Timestamp
Dim R As Integer, strUser As String
R = Target.Row
If R >= 3 Then 'erst ab Zeile 3
strUser = CreateObject("WScript.Network").UserName
Cells(Target.Row, Sp).Value = strUser & _
"_" & _
Format(Now, "YYYY-MM-DD") & _
"_" & _
Format(Now, "HH:MM:SS")
End If
End Sub
Grüße
bastla