Excel2010／Word2010を右クリックから読み取り専用で開く

ググっても手動でレジストリ直せってのばかりでregファイルがないのでメモ。
windowsアップデートが走ると毎回リセットされるのでやり直す必要がある。
以下参考。
argius.hatenablog.jp

やり方

1. 以下を拡張子「.reg」でファイルに保存
2. 保存したファイルをダブルクリック
3. 警告ダイアログで続行
4. 追加されましたって出たら完了

Windows Registry Editor Version 5.00

;------------------
; Excel2010
;------------------
;xls
[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly]
"Extended"=-

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly\ddeexec]
@="[open(\"%1\",,1,,,,,,,,,,,,1,,1)]"

;xlsx
[HKEY_CLASSES_ROOT\Excel.Sheet.12\shell\OpenAsReadOnly]
"Extended"=-

[HKEY_CLASSES_ROOT\Excel.Sheet.12\shell\OpenAsReadOnly\ddeexec]
@="[open(\"%1\",,1,,,,,,,,,,,,1,,1)]"

;xlsm
[HKEY_CLASSES_ROOT\Excel.SheetMacroEnabled.12\shell\OpenAsReadOnly]
"Extended"=-

[HKEY_CLASSES_ROOT\Excel.SheetMacroEnabled.12\shell\OpenAsReadOnly\ddeexec]
@="[open(\"%1\",,1,,,,,,,,,,,,1,,1)]"

;------------------
; Word2010
;------------------
;doc
[HKEY_CLASSES_ROOT\Word.Document.8\shell\OpenAsReadOnly]
"Extended"=-

[HKEY_CLASSES_ROOT\Word.Document.8\shell\OpenAsReadOnly\ddeexec]
@="[AppShow][REM _DDE_ReadWriteOnSave][FileOpen .Name=\"%1\",.Revert=0,.ReadOnly=1]"

;docx
[HKEY_CLASSES_ROOT\Word.Document.12\shell\OpenAsReadOnly]
"Extended"=-

[HKEY_CLASSES_ROOT\Word.Document.12\shell\OpenAsReadOnly\ddeexec]
@="[AppShow][REM _DDE_ReadWriteOnSave][FileOpen .Name=\"%1\",.Revert=0,.ReadOnly=1]"