'ユーザーフォーム右上隅の［×］ボタンを表示しない

質問

Ｅｘｃｅｌｌ　ＶＢＡ　にて
ユーザーフォーム内に［コマンドボタン］を配置し、このボタンにてユーザーフォームの消去およびその他の作業を行うコードを書い動作させています

ユーザーフォームの右上隅に表示されている［×］ボタンを表示しない（又は消去する）方法をおしえてください

回答No.5

cj_mover

＃３-４、ｃｊです。
すみません、間違いを見逃していました。
＃４前段の修正案については、原因の特定を誤っていましたので、
無かったものとしてください。
>　　DrawMenuBar nHwnd　'　メニューバーを再描画する
この記述は、イキ、です。

ちょっと恥ずかしいのですが、DrawMenuBar関数の宣言が滅茶苦茶でしたので、
APIの宣言部分を条件付きコンパイルごと、差し替え、
でお願いします。
今までエラーにならなかったのが不思議な、ミスでした。

あらためて３環境で動作を確認しました。

' ///
#If VBA7 Then
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
　　(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
　　(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Sub SetWindowLong Lib "user32" Alias "SetWindowLongA" _
　　(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As LongPtr)
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long　'　訂正部分
#Else
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
　　(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
　　(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Sub SetWindowLong Lib "user32" Alias "SetWindowLongA" _
　　(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long　'　訂正部分
#End If
' ///

お手間取らせてスミマセンでした。
以上です。

お礼

cj_mover 様
たびたびの回答有難うございます
当方力不足のため書いてくださった事なかなか理解できず
テストすることもが出来ません
何日か時間をかけて書いてくださったこと勉強します

＞注意を一点だけ。
＞閉じるユーザー操作をキャンセルするならば、
＞いちいちUnLoad するような運用は必要ないでしょうし、無駄なので、
＞Hide するような運用に統一してください

　ご指摘有難うございました、以後きをつけます