[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