ファイルが既に開いているかどうかを取得するには

質問

Sub Sample1()
Dim App As Object
Dim MyFileName As String

Set App = CreateObject("Excel.Application")

MyFileName = "C:\Users\test.xlsm"

With App
.Workbooks.Open Filename:=MyFileName
.Visible = True
If .ReadOnly Then
MsgBox "既に開いています"
App.Quit '既に開いているのなら、閉じる
End If
End With

End Sub

このようなコードを作ったのですが、どうやらIf .ReadOnly Thenの部分が間違っているようです。
エラーになります。

既にファイルが開いているか、読み取り専用かどうかを取得するコードをご教授ください。

回答No.2

Nouble · ベストアンサー

シート関数のCELL構文とEvaluate構文を組み合わせても
ヒョッとしたら
出来るかも知れませんね

回答No.1

keithin

下記などご参考まで。

ブックが開かれているかどうか調べる
http://officetanaka.net/excel/vba/tips/tips108.htm

お礼

ご回答ありがとうございます。