Hallo Leute,
gibt es eine Möglichkeit, ALLE Änderungen an einer Datei zu protokollieren? Bislang funktioniert es nur, wenn etwas in den Zellen geändert wird. Aber ich möchte auch Änderungen im Blattschutz, im Format und bei der Ansicht protokollieren...Gibt es sowas???
Vielen Dank.
Private Sub Workbook_Open()
Const sFile = "protokoll.txt"
On Error Resume Next
Close #1
Open sFile For Append As #1
Print #1, Environ("Username") & "," & Date & "," & Now
Close #1
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Const sFile = "protokoll.txt"
On Error Resume Next
Close #1
Open sFile For Append As #1
Print #1, Environ("Username") & "," & Now & "," & _
ActiveSheet.Name & "," & Target.Value & "," & Target.Address(False, False)
Close #1
End Sub
|