ワークブックを読み取り専用で開く【Workbooks.Open】【ExcelVBA】

ワークブックを読取専用で開きたい
ワークブックを読取専用で開くサンプルコード
関連記事

ワークブックを読取専用で開きたい

Workbooks.Openでワークブックを開く際、意図しない変更が発生しないよう、
ブックを読み取り専用で開きたいケースがあります。

Workbooks.Openで指定する際、ReadOnlyの引数をTrueで開くだけです。

ワークブックを読取専用で開くサンプルコード

Public Sub sample()

    '■sample.xlsxを読み取り専用(ReadOnly=True)で開く
    Workbooks.Open "C:\vba\sample.xlsx", ReadOnly:=True

    '■sample.xlsxを読み取り専用で開いて、且つ変数wbに代入する
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\vba\sample.xlsx", ReadOnly:=True)

End Sub