Protokoll letzte Speicherung
DirkS
ich möchte ein Protokoll über die letzten Speicherungen mit User, Datum und Uhrzeit erstellen. Mit diesem Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ende = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Tabelle1.Cells(endeprnummern, 1) = "User: " & Environ("USERNAME")
Tabelle1.Cells(endeprnummern, 2) = CStr(Date)
Tabelle1.Cells(endeprnummern, 3) = CStr(Time)
End Sub
funktioniert es auch, jedoch nur wenn ein User in der freigegeben Datei drin ist. Sobald mehrere User abspeichern, wird ein Konflikt ausgegeben, der besagt, dass eine Zeile schon beschrieben wurde. Ich kann dann auswählen ob meine Änderung oder von dem anderen User genommen werden soll.
Hat jemand eine Idee wie dies zu umgehen ist?
Besten Dank
DirkS
Anzeige