【VBA】誰がファイルを開いているかを検出する方法｜共有ファイルの競合防止策

2024年1月17日2025年12月22日

経緯

共有サーバー上でExcelファイルを複数人で使用していると、
誰が開いているのか分からないまま、別の人が編集を始めてしまい、上書きや不具合が起きることがあります。

たとえば、「森さんが先に開いているのに、林さんがあとから開いて編集を始めてしまう」ような状況です。
これを防ぐために、「誰がファイルを開いているか」を明示する方法をVBAで実装してみました。

実現したい仕様

ファイルを開くと、自動的に「現在開いているユーザー名」がセルA1に記録される
すでにA1に名前が記録されている状態で開いた場合、「○○さんが開いています」と警告が表示される
ファイルを閉じたとき、自分が記録者であればA1の内容を自動でクリア
ユーザー名の取得は Environ("USERNAME") を使用（Windowsログイン名）

設定例

ユーザー1：「森」さん
ユーザー2：「林」さん
使用するセル：Sheet1 の A1 セル

実装コード（ThisWorkbook）

VBAエディタで ThisWorkbook モジュールに以下のコードを貼り付けてください。

' ファイルを開いたときの処理
Private Sub Workbook_Open()
    Dim userName As String
    Dim cellContent As String

    ' Sheet1のA1セルを確認
    cellContent = Sheets("Sheet1").Range("A1").Value

    If cellContent = "" Then
        ' A1が空欄 → 現在のユーザー名を記録
        userName = Environ("USERNAME")
        Sheets("Sheet1").Range("A1").Value = userName
    Else
        ' A1に誰かの名前がある → メッセージ表示
        MsgBox cellContent & " が開いています。", vbExclamation, "ファイル使用中"
    End If
End Sub

' ファイルを閉じるときの処理
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim currentUser As String
    currentUser = Environ("USERNAME")

    ' 自分が開いたユーザーなら、A1をクリア
    If Sheets("Sheet1").Range("A1").Value = currentUser Then
        Sheets("Sheet1").Range("A1").ClearContents
    End If
End Sub

コードの仕組み

開くとき：
　→ A1が空欄なら、自分のユーザー名を記録。
　→ すでに誰かの名前がある場合は、警告メッセージで通知。
閉じるとき：
　→ A1に書かれた名前が自分のユーザー名と一致する場合のみA1を空欄に戻す。
　→ 他人が開いている最中に誤って上書きしてしまうことを防げます。