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

質問

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

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

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

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

回答No.2

tsukasa-12r

モーダルの置換ダイアログではダメなんでしょうか？
モードレスだと、保護の解除がされている間に好き勝手なことをされる可能性があるので、モーダルの方が良いのではないかと思いますけど。

モーダルのダイアログは

Application.Dialogs(xlDialogFormulaReplace).Show

で表示できると思います。

ちなみに、APIでモードレスダイアログの終了を検出するには、

1.hwnd=FindWindowEx(0,0,"bosa_sdm_XL9","検索と置換")
でダイアログのウインドウハンドルを取得

2.OrgDlgProc=GetWindowLong(hwnd,DWL_DLGPROC)
でダイアログプロシージャを取得

3.SetWindowLong(hwnd,DWL_DLGPROC,AddressOf NewDlgProc)
で独自のダイアログプロシージャをセット

独自のダイアログプロシージャでは
メッセージ=WM_CLOSE
で判定し、プロシージャの最後で、CallWindowProcを使用して2.で取得したプロシージャを呼び出す。

という流れになると思います。(あまりおすすめできませんが)
このAPIを使用した方法については、「サブクラス化」で検索すると参考になるサイトが見つかるんじゃないかと思います。
ユーザーフォームで置換ダイアログを作成できるなら、APIを使用するよりユーザーフォームでの作成をおすすめします。

補足

回答有難う御座います。
出来れば、実際に動くコードまで教えてください。
宜しくお願いします。

また、ユーザーフォームで作る方が良いと気づいたのですが
API分らないので、これを機会にAPIを理解したいと思った次第です。
ヒントを頂いたのですが進みません。自分で考えれたのは下記迄です。
－－－標準モジュール－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Public Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

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

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

Public Const DWL_DLGPROC As Long = 4

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

ActiveSheet.Unprotect 'シート保護解除
SendKeys ("^h") '「検索と置換」ダイアログ表示
hWnd = FindWindowEx(0, 0, "bosa_sdm_XL9", "検索と置換")
OrgDlgProc = GetWindowLong(hWnd, DWL_DLGPROC)
'
'ここからが分りません
'
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'シート保護
End Sub