Wie können Sie Änderungen nachverfolgen, ohne die Arbeitsmappe freizugeben?

Normalerweise wird beim Anwenden der Funktion „Änderungen nachverfolgen“ in Excel die Arbeitsmappe gleichzeitig freigegeben. Das kann ärgerlich sein, da dadurch einige Funktionen in Excel deaktiviert werden. Wie könnten Sie Änderungen nachverfolgen, ohne die Arbeitsmappe freizugeben? Hier empfehle ich Ihnen einen VBA-Code.

Änderungen ohne Freigabe der Arbeitsmappe mit VBA-Code nachverfolgen

Text in Outlook in Tabelle konvertieren

Es gibt keinen direkten Weg, dieses Problem zu lösen, aber Sie können einen flexiblen VBA-Code verwenden. Bitte folgen Sie diesen Schritten:

1. Klicken Sie mit der rechten Maustaste auf das Tabellenblatt, in dem Sie geänderte Zellen nachverfolgen möchten, und wählen Sie Code anzeigen im Kontextmenü aus. Im sich öffnenden Fenster Microsoft Visual Basic for Applications kopieren Sie den folgenden Code und fügen ihn in das leere Modul ein:

VBA-Code: Änderungen ohne Freigabe der Arbeitsmappe nachverfolgen:

Private Sub Worksheet_Change(ByVal Target As Range)
  'Updateby Extendoffice
    Const xRg As String = "A1:Z1000"
    Dim strOld As String
    Dim strNew As String
    Dim strCmt As String
    Dim xLen As Long
    With Target(1)
        If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
        strNew = .Text
        Application.EnableEvents = False
        Application.Undo
        strOld = .Text
        .Value = strNew
        Application.EnableEvents = True
        strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
        Application.UserName & Chr(10) & "Previous Text :- " & strOld
        If Target(1).Comment Is Nothing Then
            .AddComment
        Else
            xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
        End If
        With .Comment.Shape.TextFrame
            .AutoSize = True
            .Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
        End With
    End With
End Sub

Hinweis: Im obigen Code ist A1:Z1000 der Datenbereich, in dem Sie Änderungen nachverfolgen möchten.

2. Speichern Sie dann den Code und schließen Sie das Fenster. Nun werden bei jeder Änderung der Werte in Zellen innerhalb des angegebenen Bereichs die Änderungen nachverfolgt, ohne dass die Arbeitsmappe freigegeben werden muss. Siehe Screenshot: