protokollierung von Blattschutzänderung!
Blattschutzänderung!
Ich habe hier eine sehr schöne Möglichkeit mitzuschreiben, wer, wann, was geä. hat!
Was mich hierzu zu nach in der Protokollierung interressieren würde ist, wer wann den Blattschutz, bzw. den VBA geä. hat!
Gibt es hier zu auch eine Möglichkeit?
Also die Blattschutzänderung wäre wirklich wichtig!
Gibt es hier bereits irgendwelche Ansätze? Ich habe in meiner Recherche leider nichts finden können.
Ich freue mich auf eure Antworten.
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lngZeile As Long
Application.EnableEvents = False
With Worksheets("Tabelle2")
lngZeile = .Range("A65536").End(xlUp).Row + 1
.Cells(lngZeile, 1).Value = Application.UserName 'Benutzer
.Cells(lngZeile, 2).Value = Date 'Datum
.Cells(lngZeile, 3).Value = Time 'Zeit
.Cells(lngZeile, 4).Value = Sh.Name 'Blattname, auf dem geändert wurde
.Cells(lngZeile, 5).Value = Target.Address 'Zelle der Änderung
.Cells(lngZeile, 6).Value = Target.Value 'neuer Eintrag
End With
Application.EnableEvents = True
End Sub
Gruß Lisa
Anzeige