Excelの検索ダイアログで「ブック」かつ「値」を疑似的にでもデフォルトにしたい

Option Explicit

Sub SetSearchOptionsToWorkbookValues()

    '「検索ダイアログ」を表示させる。
    Application.CommandBars.ExecuteMso "FindDialogExcel"

    '環境によっては以下も必要かも。［オプション］を開くキー操作
    'Application.SendKeys "%t"


    'ドロップダウンリスト「検索場所」を「ブック」にするという一連のキー操作
    Application.SendKeys "%h"
    Application.SendKeys "{DOWN}"
    Application.SendKeys "{ENTER}"

    'ドロップダウンリスト「検索対象」を「値」にしてから検索ダイアログを閉じるという一連のキー操作
    Application.SendKeys "%l"
    Application.SendKeys "{DOWN}"
    Application.SendKeys "{ENTER}"
    Application.SendKeys "{ESC}"

End Sub

Option Explicit

Private Sub Workbook_Open()

    If WaitForExcelReady() Then
        Debug.Print "Excel は完全に起動しました。処理を開始します。"
        Call SetSearchOptionsToWorkbookValues
    Else
        MsgBox "Excel の起動がタイムアウトしました。", vbExclamation
    End If

End Sub

結果

Excelファイルを起動する度に、起動直後に検索ダイアログが一瞬表示され、「ブック」と「値」に変更されるようになった。
これにより、Ctrl + F で検索をかける際、いちいち「ブック」と「値」に変えなくてもよくなった。
デフォルト値の疑似的な変更と言えるかも。

注意点

• Excelファイルをダブルクリックするなどして、Excelを起動すると同時にExcelファイルを開くという時でないと、効果がない。
  例えば、Excelを素で起動してからファイルを呼びだす、というやり方には対応していない。
• この一連のマクロをExcel起動中に手動等で再度実行してしまうと、検索ダイアログの中の設定が意図したものとは変わってきてしまう。