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