先生と生徒の会話形式で理解しよう

生徒

「先生、共有しているExcelファイルで、『誰がいつ、どのセルを書き換えたか』を自動的に記録する方法はありますか？」

先生

「ありますよ。VBAの『イベント』という機能を使って、ログ（履歴）を残す仕組みを作れば解決します。」

生徒

「ログ…なんだか難しそうですね。プログラミングをやったことがなくても作れますか？」

先生

「大丈夫です！『何かが起きたら、別の場所に書き込む』という単純な命令の組み合わせですから。基本的な仕組みから丁寧に解説しますね。」

1. イベントログとは？なぜExcelで必要なのか

Excel VBAにおけるイベントログとは、ブックやシートに対して行われた操作の記録のことです。例えば、「誰が」「いつ」「どのシートの」「どのセルを」「何から何へ書き換えたか」といった情報を、目に見える形で残しておく日記のようなものです。

プログラミング未経験の方には、「銀行の通帳」をイメージしていただくと分かりやすいでしょう。誰がお金を出し入れしたかが通帳に刻まれるように、Excelで行われた重要な操作を自動的に記録します。これにより、間違えてデータを消してしまったときの原因特定や、複数の人でファイルを管理する際のミス防止に役立ちます。SEO対策としても、Excelの「自動化」や「履歴管理」は実務で非常に需要の高いキーワードとなっています。

2. ログを残すための下準備：専用シートの作成

まずは、履歴を書き込むための「専用シート」を用意しましょう。Excelの新しいシートを作成し、名前を「Log」に変更してください。このシートの1行目には、見出しとして以下のような項目を入れておくと分かりやすくなります。

A列：操作日時
B列：操作したユーザー名
C列：シート名
D列：セルの場所（アドレス）
E列：新しく入力された値

このように、「情報の箱」をあらかじめ定義しておくことで、VBAが迷わずにデータを書き込めるようになります。パソコンを触ったことがない方でも、まずはこの「表の土台」を作るだけで、プログラミングの準備の半分は完了です。

3. 【基本】セルが変わった瞬間にログを記録する

では、実際にコードを書いてみましょう。シートのセルの内容が書き換えられた瞬間に、先ほど作った「Log」シートへ情報を追記するプログラムです。これは Worksheet_Change というイベントを使用します。


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim logSheet As Worksheet
    Dim nextRow As Long
    
    ' 書き込み先の「Log」シートをセットします
    Set logSheet = ThisWorkbook.Worksheets("Log")
    
    ' 次に書き込む行（一番下の空いている行）を探します
    nextRow = logSheet.Cells(logSheet.Rows.Count, 1).End(xlUp).Row + 1
    
    ' ログを書き込みます
    logSheet.Cells(nextRow, 1).Value = Now ' 現在の日時
    logSheet.Cells(nextRow, 2).Value = Application.UserName ' ユーザー名
    logSheet.Cells(nextRow, 3).Value = Me.Name ' 操作されたシート名
    logSheet.Cells(nextRow, 4).Value = Target.Address ' セルの場所
    logSheet.Cells(nextRow, 5).Value = Target.Value ' 新しい値
End Sub

ここで出てくる Now（ナウ）は現在の時刻、Application.UserName（アプリケーション・ユーザーネーム）はパソコンに登録されているあなたの名前を取得する命令です。End(xlUp)（エンド・エクセルアップ）は、表の一番下から上に向かってデータを探し、次に書き込む場所を見つけるための定番のテクニックです。

4. ブックを開いた時・閉じた時のログを残す方法

セルだけでなく、「誰かがこのファイルを開いた」「閉じた」というタイミングも記録しておくと安心です。これはシートではなく、ブック全体を見守る ThisWorkbook という場所に記述します。これを学ぶことで、ファイルの利用状況を完全に把握できるようになります。


' ブックを開いたときに自動で動くプログラム
Private Sub Workbook_Open()
    Dim logSheet As Worksheet
    Dim nextRow As Long
    
    Set logSheet = ThisWorkbook.Worksheets("Log")
    nextRow = logSheet.Cells(logSheet.Rows.Count, 1).End(xlUp).Row + 1
    
    ' 「開きました」という情報を記録
    logSheet.Cells(nextRow, 1).Value = Now
    logSheet.Cells(nextRow, 2).Value = Application.UserName
    logSheet.Cells(nextRow, 5).Value = "ブックを開きました"
End Sub

このように、特定の動作（開く、閉じるなど）に合わせてログを残すことで、誰がどれくらいの頻度でそのExcelファイルを使っているのかという統計を取ることも可能になります。初心者の方でも、決まった枠組みの中に命令を並べるだけなので、非常に作りやすい機能です。

5. ログシート自体への書き込みを無視する工夫

イベントログを構築する際、一つ大きな注意点があります。それは、ログを書き込む動作そのものが「セルの変更」として検知され、無限にログを取り続けてしまう「無限ループ」のリスクです。これを防ぐために、If文を使って「もしログシートだったら、記録しない」というルールを追加します。


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 操作されたシートの名前が「Log」だったら、何もしないで終了します
    If Sh.Name = "Log" Then Exit Sub
    
    ' ログシート以外の場合は、ここに記録の処理を書きます
    ' （前述の記録プログラムをここに記述）
End Sub

Exit Sub（エグジット・サブ）という言葉は、「ここでプログラムを終了して帰りなさい」という命令です。この一行があるおかげで、自分自身の書き込みに反応してExcelが固まってしまうのを防ぐことができます。これはプログラミングの「安全設計」において非常に重要な考え方です。

6. 外部ファイル（テキストファイル）にログを保存する

Excelファイルの中にログを貯めすぎると、ファイルが重くなって動作が遅くなることがあります。そんな時は、Excelの外にある「テキストファイル（.txt）」に履歴を書き出す方法が有効です。これは実務でよく使われる高度な手法ですが、VBAなら数行で実現できます。


Private Sub SaveToTextFile(msg As String)
    Dim filePath As String
    Dim fileNumber As Integer
    
    ' 保存する場所（このExcelと同じフォルダのlog.txt）
    filePath = ThisWorkbook.Path & "\log.txt"
    fileNumber = FreeFile
    
    ' ファイルを開いて、一番最後に追記します
    Open filePath For Append As #fileNumber
    Print #fileNumber, Now & " : " & msg
    Close #fileNumber
End Sub

Open...For Append（オープン・フォー・アペンド）というのは、「ファイルを追記モードで開く」という意味です。Excelがクラッシュしてしまっても、外に書き出したテキストログは残るため、より確実な証拠を保存したい場合に役立ちます。パソコンをあまり触らない人にとって「外のファイルと連携する」のは魔法のように見えるかもしれませんが、VBAを使えば誰でも実装可能です。

7. 特定の重要なセルだけを監視してログを取る

「すべてのセルの変更を記録すると、膨大な量になってしまう」という場合は、特定の範囲（例えば売上金額が入る列など）だけを監視するように設定しましょう。これにより、ログの質が向上し、本当に必要な情報だけを効率よく収集できます。これには Intersect（インターセクト）という命令を使います。


Private Sub Worksheet_Change(ByVal Target As Range)
    ' A列からC列の間が変更されたかどうかを判定します
    If Not Intersect(Target, Range("A:C")) Is Nothing Then
        ' 範囲内の場合のみ、ログを保存する処理を呼び出す
        Call SaveToLogSheet(Target)
    End If
End Sub

Intersect は「重なっている部分」という意味です。「変更されたセル」と「監視したい範囲」が重なっているときだけ動くように制御します。このように監視の網を絞ることで、プログラムの動作も軽くなり、実用的なツールに一歩近づきます。