ワークブックを共有せずに変更履歴を追跡するにはどうすればよいですか？

通常、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. その後、コードウィンドウを保存して閉じます。これで、指定した範囲内の任意のセルの値を変更すると、ワークブックを共有しなくても変更が追跡されるようになります。スクリーンショットをご覧ください：