Hur spårar jag ändringar utan att dela arbetsbok?

Normalt, när du använder funktionen Spåra ändringar i Excel, kommer arbetsboken att delas samtidigt, detta kommer att vara irriterande eftersom vissa av funktionerna i Excel kommer att inaktiveras. Hur kunde du spåra ändringar utan att dela arbetsboken? Här kommer jag att rekommendera en VBA-kod för dig.

Spåra ändringar utan att dela arbetsbok med VBA-kod

Konvertera text till tabell i Outlook

Det finns inget direkt sätt att lösa detta problem, men du kan använda en flexibel VBA-kod. Följ dessa steg:

1. Högerklicka på arkfliken som du vill spåra ändrade celler och välj Visa kod från snabbmenyn, i poppade ut Microsoft Visual Basic för applikationer kopiera och klistra in följande kod i tomt Modulerna:

VBA-kod: Spåra ändringar utan att dela arbetsbok:

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

Anmärkningar: I ovanstående kod, A1: Z1000 är det dataområde som du vill spåra ändringar.

2. Spara och stäng sedan detta kodfönster. Nu, när du ändrar värdena i alla celler inom det angivna intervallet, kommer ändringarna att spåras utan att dela arbetsboken. Se skärmdump: