ファイルが既に開いているかの状態をチェックして取得するにはどうしたらよいか？

Message#1 2015年2月7日(土)05時41分
From: sakai

ExcelのVBAでファイルが既に開いているかの状態をチェックして取得するにはどうしたらいいでしょうか？

以下はサンプルのVBAコードです。
If～Thenの部分でエラーが起きていますが、ここを見ても分かりませんでした。
開いているファイル名を取得して比較してもいいですし、読み取りファイルがある場合はそちらとファイル名の比較でもなんでもかまいません。
ようはそれが分かるようなVBAコードにしたいのですが、私の知識ではここまでが限界です。
有志の方々力を貸してください。

Sub Sample()
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