Excel 2003の「読み取り専用で開く」が、なんだか効いていない件。

(--/--/-- --:--)

上記の広告は１ヶ月以上更新のないブログに表示されています。新しい記事を書く事で広告が消せます。

(2010/03/12 00:41)

たぶん世の中的にはいまさらですが、Excel 2003 の「読み取り専用で開く」がうまく動かないので、対策を打ちました。本記事はその記録です。

# ここでいう「読み取り専用で開く」は、エクスプローラ上で SHIFTキーを押しながら .xlsファイルを右クリックすると表示されるあれのことです。

# 以下では、レジストリを直接編集しています。例によって自己責(以下略)

手順。

※この件に限り、直接レジストリを編集したほうが面倒が少ない予感。フォルダオプションからやろうとすると、エクスプローラが余計なことしてくださるので。

レジストリエディタで、以下のキーを選択する。
HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly\ddeexec
「(既定)」を、以下のように変更する。
[open("%1",,,,,,,,,,,,,,1,,1)]→[open("%1",,1,,,,,,,,,,,,1,,1)]
おわり。

あと、「読み取り専用で開く」を表示するために毎度SHIFTキーを押すのがだるい場合には、
HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly 直下の「Extended」を、「Extended_」などにリネームするとよいでしょう。

# 2010/07/24 追記。ちなみに …\OpenAsReadOnly\command の「(既定)」に「%1」が含まれていると、普通の関連付けと DDE とで 2回ファイルを開こうとします。したがって、「(既定)」から「%1」を取り除くと、幸せになれるでしょう。

参考までに当方の環境をさらしますと、…\OpenAsReadOnly\command の「(既定)」は、

"C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" /h /e

です。(「/e」は、起動画面や新規ブックを作成しないオプションスイッチ、「/h」は不明)

ピンポイント解説。

DDEで指定している「open」は、VBAの Workbooks.Open らしい。
たぶん上記と同じパラメータを持つであろう Workbooks.Open メソッド (Microsoft.Office.Interop.Excel) のリファレンスを参照すると、Openの第3引数に「ReadOnly」というパラメータがある。
ReadOnly
省略可能です。オブジェクト型 (Object) の値を使用します。ブックを読み取り専用モードで開くには、True を指定します。