ブックを読み取り専用で開く

Dim book As Workbook
Set book = Workbooks.Open(fileNameWithPath, ReadOnly:=True)