ブックを読み取り専用で開くには、 Workbooks.Openの引数ReadOnlyにTrueを指定します。 Workbooks.Open "C:\Users\wfsp\Desktop\テストブック.xlsx", ReadOnly:=True ' 変数に入れる場合 Dim ファイルパス As String ファイルパス = "C:\Users\wfsp\Desktop\テストブック.xlsx" Dim wb読取ブック As Workbook Set wb読取ブック = Workbooks.Open(ファイルパス, ReadOnly:=True) ただし既に開いているファイルに対して実行しても、…