Löschen von Zellen,Spalten,Inhalten verunmöglichen
29.03.2019 09:36:57
Zellen,Spalten,Inhalten
ich habe einen Code der alle Benutzer die in der Datei arbeiten und dies speichern mit Benutzername, Datum und Uhrzeit protokolliert.
Nun möchte ich aber dass wenn ein User speichert und der Code in die nächste Zeile dies protokolliert dass man dann diesen Eintrag nicht mehr löschen kann.
Sprich das Löschen von Zeilen, Zellen, Spalten und Inhalt der Spalten A:A, B:B, C:C soll verhindert werden.
So sieht mein bisheriger Code aus:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Protokoll").Visible = True
With Sheets("Protokoll")
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Environ("Username")
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Value = Date
.Cells(.Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Value = Time
End With
End Sub
Nun wäre meine Frage welchen Zusatzcode muss ich in diesem Code einfügen, sodass die Löschung der Einträge in den genannten Bereichen verunmöglicht wird?
Danke für die Tipps.
VG
Memo