如何在不共享工作簿的情況下追蹤變更？

通常，當您應用 Excel 中的追蹤變更功能時，工作簿將同時被共享，這會令人困擾，因為 Excel 中的一些功能將被禁用。那麼，您該如何在不共享工作簿的情況下追蹤變更呢？在此，我將為您推薦一段 VBA 程式碼。

使用 VBA 程式碼在不共享工作簿的情況下追蹤變更

在 Outlook 中將文字轉換為表格

雖然沒有直接的方法來解決這個問題，但您可以使用靈活的 VBA 程式碼。請按照以下步驟操作：

1. 右鍵單擊您要追蹤更改單元格的工作表標籤，然後從快捷選單中選擇「檢視程式碼」，在彈出的 Microsoft Visual Basic for Applications 視窗中，請將以下程式碼複製並粘貼到空白的模組中：

VBA 程式碼：在不共享工作簿的情況下追蹤變更：

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

備註：在上述程式碼中，A1:Z1000 是您要追蹤變更的資料區域。

2. 然後保存並關閉此程式碼視窗。現在，當您更改指定區域內任何單元格的值時，這些變更將在不共享工作簿的情況下被追蹤。請參見截圖：