Wenn Du in "Diese Arbeitsmappe" folgendes kopierst, wird jedes öffnen sowie jeder Speichervorgang in einer Datei dokumentiert.
--> ALT + F11, dann "diese Arbeitmappe", copy and paste!
Private Sub Workbook_Open()
Dim a
Dim b
a = Application.UserName
b = Time
on error resume next 'wenn die datei nicht existiert oder sie bereits geöffnet ist, macht XL einfach weiter
Open "Dein Pfad\Dein Dateiname.txt" For Append As #11
Print #11, Date & " " & Time & " " & a & " Mappe geöffnet"
Close #11
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Open "Dein Pfad\Dein Dateiname.txt" For Append As #11
Print #11, Date & " " & Time & " " & a & "Änderungen wurden gespeichert"
Close #11
End Sub
Du kannst folgendes in das jeweilige Blatt (in VBA) kopieren, dann speichert er jede Änderung genau ab. (--> alt + F11, in die
jeweilige Blatt, copy and paste)
Dann wirn automatisch das Datum der letzten 'nderung mit Name und Datum im Blatt selber wie auch in einer Datei vermerkt.
Private Sub Worksheet_Change(ByVal Ziel As Range)
Dim a, c
Dim b
a = Ziel.Row
c = Ziel.Column
b = Application.UserName
If Not a = 1 Then
If Not Range("S" & a).Value = b Then
Range("S" & a).Value = b
End If
If Range("R" & a).Value = Date Then
End
Else
On Error Resume Next
Open "Dein PFAD\DEIN NAME.TEXT" For Append As #11
Print #11, Date & ": " & b & ": Änderung: Spalte " & c & "; Zeile " & a & ""
Close #11
Range("R" & a).Value = Date
End If
End If
End Sub
WICHTIG: Du musst erst eine Text-Datei erstellen. (Du kannst die Endung frei wählen, also auch .log etc.) Du macht an besten den Text-Editor auf, Da kannst Du dann gerne eine Überschrift wählen
Wichtig ist, dass beim speichern der Cursor am Anfang einer neuen Zeile steht.
Viel Spaß
Willi
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen