VBAで他のPCにファイルを開かれたことを知りたい

質問

EXCEL VBAで、ある特定のファイルが他のPCに開かれたまたは開かれている場合それを知ることはできないでしょうか？

回答No.1

Wendy02 · ベストアンサー

こんばんは。

こういうことでしょうか？

Sub BookEnableEdit()
Dim MyPath As String
Dim myFno As Integer
Const Fname As String = "test01.xls"
MyPath = "\\サーバー名 \○○\"
If Dir(MyPath & Fname) <> "" Then
　myFno = FreeFile
　On Error Resume Next
　Open MyPath & Fname For Binary Lock Read　Write As #myFno
　Close #myFno
End If
　If Err.Number = 70 Then
　　MsgBox "ブックは開いています", 16
　ElseIf Err.Number = 0 Then
　　MsgBox "ブックは編集できます。", 64
　Else
　　MsgBox "ブックを調べてください", 32
　End If
　On Error GoTo 0
End Sub

Err.Number の後は、ご自分で加工してください。

お礼

返事が遅れてすみません。
まだ試していませんが、時間を見て試してみたいと思います。
大変参考になりました。
どうもありがとうございます。