排他的に人がつかんでるExcelファイルを読み取り専用で開き
たいと思っております。

-----------------------------------------------------
Dim objExl As Object
Dim objSheet As excel.Worksheet
Dim objBook As excel.Workbook

Set objExl = CreateObject("Excel.Application")
Set objBook = excel.Workbooks.Open("c:\test.xls")
Set objSheet = objBook.Worksheets(1)
-----------------------------------------------------

Excelを読み込み専用で開くにはどうしたらいいでしょうか？
過去ログにACCESSに関してはコマンドラインから読み取り専用
で開くことを指定できたみたいですが、Excelの場合にもその
ようなコマンドラインはあるのでしょうか？

> Set objBook = excel.Workbooks.Open("c:\test.xls")

Set objBook = excel.Workbooks.Open("c:\test.xls", ReadOnly:=True)

これではどうですか？

> > Set objBook = excel.Workbooks.Open("c:\test.xls")
>
> Set objBook = excel.Workbooks.Open("c:\test.xls", ReadOnly:=True)
>
> これではどうですか？

返信が遅れてしまって本当にすいません。
試して見た結果、うまくいきました。
ちなみに読み取り専用で開いても、保存することもできました。