ＶＢＡでの共有ファイル操作

質問

エクセルＶＢＡを使い別のＢＯＯＫを開きたいのですがそのファイルはＬＡＮで接続された別のパソコンに入っています。
With Application.FileSearch
.LookIn = acpath
.Filename = "日記" & TextBox1.Value & ".xls"
If .Execute > 0 Then
Workbooks.Open Filename:=acpath & "\日記" & TextBox1.Value & ".xls"
Else
MsgBox "アクセスできませんでした。"
Exit Sub
End If
End With
MsgBox "アクセス成功"

パスは変数にしています。
こんな感じで現在ファイルを開いているのですが、５台位のパソコンがそのファイルにアクセスする場合別のパソコンが使用していることもあります。このとき別のパソコンが使用している場合は何かメッセージをだし（例えば「しばらくして実行してください」）実行しているプログラムから抜けたいのですが、できるのでしょうか？

もう１つはその共有フォルダー内に同じ名前のファイルを上書きコピーしたいのですが、「上書きしますか？｝みたいなメッセージを表示させずに強制的に上書きさせることはできるのでしょうか？よろしくお願いします。

回答No.1

KenKen_SP · ベストアンサー

こんにちは。

> 別のパソコンが使用している場合は何かメッセージをだし...

こんな感じの関数を標準モジュールに作成して、

' // ファイルが編集可能か調べる
Public Function IsFileEditable( _
　　　 ByVal FilePath As String _
) As Boolean

　　Dim n　 As Integer

　　IsFileEditable = False

　　If CreateObject("Scripting.FileSystemObject") _
　　　　.FileExists(FilePath) = False Then
　　　　Exit Function
　　End If

　　n = FreeFile()
　　On Error Resume Next
　　Open FilePath For Binary Lock Read Write As #n
　　Close #n
　　IsFileEditable = CBool(Err.Number = 0)
　　On Error GoTo 0

End Function

次のように確認すれば良いと思いますよ。

　　sPath = acpath & "\日記" & TextBox1.Value & ".xls"
　　If IsFileEditable(sPath) Then
　　　　' MsgBox "編集可能", vbInformation
　　　　Workbooks.Open Filename:=sPath
　　Else
　　　　MsgBox "ファイルは使用中です。" & vbLf _
　　　　　　 & "しばらくして実行してください", vbCritical
　　　　Exit Sub
　　End If

> 「上書きしますか？」みたいなメッセージを表示させずに強制的に
> 上書きさせることはできるのでしょうか

　　Application.DisplayAlerts = False
　　’（上書き処理）
　　Application.DisplayAlerts = True

でアラートの表示は停止できます。

ただし、自分以外の誰かが編集中のファイルについて、もし何らかの
手段で無理やり「上書き」できたとしても、ファイルが破損してしまう
可能性が非常に高いです。

先述の IsFileEditable 関数などの手段を使って、予めファイルが
使用中でないことを確認して条件分岐させた方が良いでしょうね。。

お礼

本とか見ながらやっているのですがこのようなことまでは書いてなかったので助かりました。ありがとうございます。