Wie kann ich Änderungen verfolgen, ohne die Arbeitsmappe freizugeben?
Wenn Sie die Funktion "Änderungen verfolgen" in Excel anwenden, wird die Arbeitsmappe normalerweise gleichzeitig freigegeben. Dies ist ärgerlich, da einige der Funktionen in Excel deaktiviert sind. Wie können Sie Änderungen verfolgen, ohne die Arbeitsmappe freizugeben? Hier empfehle ich Ihnen einen VBA-Code.
Verfolgen Sie Änderungen, ohne die Arbeitsmappe mit VBA-Code zu teilen
Konvertieren Sie Text in eine Tabelle in Outlook
Es gibt keine direkte Möglichkeit, dieses Problem zu lösen. Sie können jedoch einen flexiblen VBA-Code anwenden, um das Problem zu lösen. Gehen Sie dazu wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte "Blatt", auf der Sie geänderte Zellen verfolgen möchten, und wählen Sie Code anzeigen aus dem Kontextmenü in der herausgesprungenen Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden Code und fügen Sie ihn in das Feld ein Modul:
VBA-Code: Verfolgen Sie Änderungen, ohne die Arbeitsmappe freizugeben:
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
Note: Im obigen Code, A1: Z1000 ist der Datenbereich, in dem Sie Änderungen verfolgen möchten.
2. Speichern und schließen Sie dieses Codefenster. Wenn Sie nun die Werte in Zellen innerhalb des im Code festgelegten Bereichs ändern, werden die Zellen nachverfolgt und die Arbeitsmappe wird nicht freigegeben. Siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!