Änderungsprotokoll
09.08.2004 15:10:43
Torsten
mit dem folgenden Code (aus dem Forum natürlich) kann ich jeden Zugriff auf die Datei protokollieren.:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim LetzteZeile As Long
With Worksheets("PROTOC")
LetzteZeile = .Range("A65536").End(xlUp).Row + 1
.Cells(LetzteZeile, 1) = Environ("Username")
.Cells(LetzteZeile, 2) = Date
.Cells(LetzteZeile, 3) = Time
.Cells(LetzteZeile, 4) = z.B. Zelle "B65" des WS("ENTER") 'das wäre mein Wunsch
End With
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub
Wie muß denn der Code verändert werden, wenn ich zusätzlich erkennen möchte, welcher User wann und welche Zelle in dem WS ("ENTER") verändert hat?
Könnt Ihr mir helfen?
Vielen Dank im voraus.
Gruß
Torsten