[[20040405175944]]　『VBA：ユーザーメニューの右端の×ボタンを削除』（お助け）　ページの最後に飛ぶ

『VBA：ユーザーメニューの右端の×ボタンを削除』（お助け）

[VBA:ユーザーメニューの右端にある×ボタンを削除したい]

タイトルにあるようにVBAでユーザーメニューの右端にあるボタンで終了するのではなく
終了ボタンを押しておとすようにしたいのですが・・どなたか教えてください。m(_ _)m

 (1)簡単なのはフォームのTerminateイベントでメッセージを出すやり方。
 　　　　　　　　　　　　　↑これはやっちゃだめです[訂正]

 (2)マニアの方は↓のAPIを使う方法をお試しください。

 （kazu）

 うかつなことを書いてはいけませんネ。
 Terminateで終了できなくなるループに嵌まってしまいました。
 UserForm_QueryCloseが正解。

 ユーザー・フォームに[終了]ボタンを作って
 VBAを終わるコード END を書いておくこと。
 これを忘れると...終われなくなります。

 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     Cancel = True
 End Sub

 （kazu）

返事遅くなり申し訳ありません。KAZUさん回答ありがとうございました。
思いとおりに動きましたm(_ _)m

(お助け)

コメント返信：