Sub エクセルファイルを読み取り専用で開く()

    Workbooks.Open "C:\test.xlsx", ReadOnly:=True

End Sub