こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

vba 読み取り専用で他のファイルを開くには

エクセルvbaで他のエクセルファイルを読み取り専用で開きたいのですが
「読み取り専用で!」とするにはどうすればいいですか?

今のままだとエラーになります。
-------------------------

Sub a()

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

With App
.Visible = True
.ReadOnly '実行時エラー438
End With

Set App = Nothing

End Sub

投稿日時 - 2015-04-05 23:18:57

QNo.8950054

困ってます

質問者が選んだベストアンサー

ヘルプにも記載されていますが
https://msdn.microsoft.com/ja-jp/library/office/ff194819.aspx?f=255&MSPPError=-2147217396
より抜粋。

式 .Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
式 Workbooks オブジェクトを表す変数です。

ReadOnly
省略可能
バリアント型 (Variant)
ブックを読み取り専用モードで開くには、True を指定します。

投稿日時 - 2015-04-06 00:00:26

お礼

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

投稿日時 - 2015-04-12 12:42:12

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問