開かれた別ファイルが読み取り専用で開かれるのならば

質問

Sub tset()

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(MyFileName)

xlApp.Visible = True

Set xlBook = Nothing
Set xlApp = Nothing
End Sub

こんな感じで、別ファイアルを開いているのですが、
開かれた別ファイル（MyFileName）が、
読み取り専用で開かれるのならば、と言う条件でコードを書きたいのですが
どうすればいいでしょうか？

MyFileName側の
Private Sub Workbook_Open()

End Sub
で操作したいです。

回答No.1

keithin · ベストアンサー

自分が読み取り専用で開かれてるか調べたいということですか。

if thisworkbook.readonly then
でいいと思いますが。

お礼

どうもありがとうございました。