[XL]他ユーザーが使用中のファイルを開く時任意のメッセージを表示する方法

詳細

目的のブックを開くには、Workbooks オブジェクトの Open メソッドを使用します。ファイルを開こうとした時に、そのファイルが既に他のユーザーにより使用されている場合は、自動的に [上書き禁止] で開かれます。
目的のファイルが既に他のユーザーにより使用されているときは、そのファイルを開かずに他の処理をさせようとした場合、Workbooks.Open を実行する前に、そのファイルが他のユーザによって使用されているどうか判断する必要があります。Excel 5.0 では「指定したファイルを他のユーザーが使用しているかどうか」を取得するプロパティは用意されていません。そこで、Workbooks.Open を実行する前に、Open ステートメントを使用して [書き込み専用] として目的のファイルを開き、意図的に発生させたエラーを利用します。
Open ステートメントは「ファイルを開いて、ファイルへの入出力を可能にする」機能を持っています。指定項目 Access のキーワードに Write を指定すると、ファイルを [書き込み専用] でオープンします。ファイルが別のプロセスで既に開かれていて指定したアクセスが実行できないとき、Open ステートメントはファイルを開くことができず、エラー番号 70 「書き込みできません」が発生します。On Error ステートメントを使用して、ファイルを開くことができなかった場合の処理を行います。

サンプル モジュール

次のサンプル モジュールでは、ファイル F:\DATA\SAMPLE.XLS を [書き込み専用]として開き、正常に開くことができなかった場合にはメッセージ「このファイルは使用中です」を表示し、作業を終了しています。

  Sub FileShareCheck()
  Dim MyFile As String
  On Error GoTo ErrorTrap
      MyFile = Dir("F:\DATA\SAMPLE.XLS")
      If MyFile = "" Then
          MsgBox "指定したファイルはありません"
      Else
          '書き込み専用でオープン
          Open "F:\DATA\SAMPLE.XLS" For Binary Access Write As #1
          Close #1
          Application.Workbooks.Open Filename:="F:\DATA\SAMPLE.XLS"
      End If
      Exit Sub
  ErrorTrap:
      MsgBox Err & Error(Err)
      MsgBox "このファイルは使用中です"
      Exit Sub
  End Sub