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

Author Xiaoyang Last modified 2025-08-26

通常、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

A screenshot showing the VBA module with the code pasted

注: 上記のコードでは、A1:Z1000は変更履歴を追跡したいデータ範囲です。

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

A screenshot showing tracked cell changes in Excel without sharing the workbook

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数