Kommentare vor Bearbeitung schützen
10.06.2020 13:09:42
Rapha
ich habe einen Code erstellt der mir eine Änderungshistorie in den Kommentaren aufzeigt.
Ich hätte zwei Fragen und wäre sehr dankbar für die Antworten:
Frage 1: Kann ich die Bearbeitung der Kommentarfunktion deaktivieren, sodass ein normaler Excel Anwender nicht die Möglichkeit hat die Kommentarfunktion zu ändern/manipulieren.
Frage 2: gibt es eine zusätzliche Möglichkeit wie ich die Änderungshistorie in einer extra Tabelle darstellen kann außer über Änderungen nachverfolgen?
Hier mein aktueller Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim singlecell As Range
If Target.Cells.CountLarge = 100 Then Exit Sub
For Each singlecell In Target
If singlecell.Comment Is Nothing Then
singlecell.AddComment Now & " - " _
& "New Value: " _
& singlecell.Value & " - " _
& Environ("username") & " -" _
& " changed the value from a NULL value."
Else
Target.Comment.Text _
vbNewLine & Now & " - " _
& "Value Changed to: " _
& Target.Value & " - By: " _
& Environ("Username") & " (|:-)" _
, Len(Target.Comment.Text) + 1 _
, False
End If
singlecell.Comment.Shape.TextFrame.AutoSize = True
Next singlecell
End Sub
Anzeige