モードレスダイアログを閉じた時の判断(API)

質問

モードレスダイアログを閉じた時の判断(API)

モードレスダイアログを閉じた時の判断の仕方を教えてください。
お願いします。
コードの例文を載せて頂けると幸いです。

<<詳細>>
具体的にはExcel2003の「検索と置換」ダイアログを使います
(Class:bosa_sdm_XL9　Caption:検索と置換)
下記の動作をVBAで組む為です。

シートの保護解除
　↓
「検索と置換」ダイアログ起動
　↓
　ユーザーがダイアログ閉じる※この判断
　↓
シート保護

回答No.3

tsukasa-12r

今、確認できる環境がありませんので、動作未確認です。
（お正月休みが明けるまで確認できません。）
応答なしや異常終了になる可能性がありますので十分ご注意の上、自己責任において実行してください。

'標準モジュールで記述
Public Const DWL_DLGPROC As Long = 4

Public OrgDlgProc As Long

Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const WM_DESTROY As Long = 2

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Function NewDlgProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
　　If uMsg = WM_DESTORY Then
　　　　'ダイアログが閉じられる時
　　End If
　　NewDlgProc = CallWindowProc(OrgDlgProc, hWnd, uMsg, wParam, lParam)
End Function

'実行ボタンのモジュール
Private Sub CommandButton1_Click()
　　Dim hWnd As Long

　　SendKeys "^h"

　　hWnd = FindWindow("bosa_sdm_XL9", "検索と置換")
　　If hWnd Then
　　　　OrgDlgProc = GetWindowLong(hWnd, DWL_DLGPROC)
　　　　If OrgDlgProc Then
　　　　　　Call SetWindowLong(hWnd, DWL_DLGPROC, AddressOf NewDlgProc)
　　　　End If
　　End If
End Sub

見やすくするために、全角スペースでインデントしています。

前回の内容と異なっているところがあります。
FindWindowEx でなくても FindWindow で十分なので、FindWindow にしました。
WM_CLOSE は×ボタンやシステムメニューの「閉じる」の時のメッセージなので、WM_DESTROY にしました。

補足

やはり動きませんでした。

SendKeys "^h" でダイアログが立ち上がる前に、後のコードが流れてる可能性が有ります。

マクロ実行する前に「検索と置換」ダイアログを立ち上げても
OrgDlgProcにゼロしか入らないので、SetWindowLongに行かない。

色々と有難う御座います。答えを知りたいですが、諦めるしかないかなと感じています。