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

前回のはExcel2016では使えないのでメモ。
Word2016はそのまま使えるっぽい。
以下参考。
qiita.com

やり方

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

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

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly\command]
@="\"C:\\Program Files (x86)\\Microsoft Office\\Root\\Office16\\EXCEL.EXE\" /r \"%1\""

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

[HKEY_CLASSES_ROOT\Excel.Sheet.12\shell\OpenAsReadOnly\command]
@="\"C:\\Program Files (x86)\\Microsoft Office\\Root\\Office16\\EXCEL.EXE\" /r \"%1\""

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

[HKEY_CLASSES_ROOT\Excel.SheetMacroEnabled.12\shell\OpenAsReadOnly\command]
@="\"C:\\Program Files (x86)\\Microsoft Office\\Root\\Office16\\EXCEL.EXE\" /r \"%1\""

;------------------
; Word2016
;------------------
;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]"