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

質問

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

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

回答No.7

cj_mover

＃３-５、ｃｊです。＃５お礼欄拝見しました。

> テストすることもが出来ません
> 何日か時間をかけて書いてくださったこと勉強します

まずは何より動作確認ですね。
動作確認までは、あまり難しく考える必要ないです。
私のミスで混乱させてしまってるかも知れないので、
テストする方法をシンプルに書いてみます。
この回答だけで完結する内容で、簡単に試せるように書き直しました。

ついでに、閉じるボタンを非表示にする設計の簡単な例として、
◆マークの行を書き加えてみました。
勿論ここに書くのはプロットですから、実際は、
入力内容のチェック処理など他の処理が合間に入る訳ですが、
必要な入力が終り、入力完了ボタンが押されたら、
入力した内容をチェックし、確定しても良いと判断した場合に、
入力内容と集計結果を確認画面に表示してから
入力確定（閉じる）ボタンを表示する、
というような操作の流れを想定しています。

以下、準備
　１．新規のブックに新しくユーザーフォームを挿入
　２、ユーザーフォームにコマンドボタンを２つ配置
　　　（名前などのプロパティは全てそのまま）
　３、UserForm1 モジュール に下記のコードを丸ごとコピペ
　　　（記述の全てをそのまま）
　４、標準モジュールあたりに、ユーザーフォーム実行マクロを記述
　　　（UerForm1.Show または UerForm1.Show vbModeless どちらでも）
準備はここまで、以下確認作業
　５、４で作成したマクロを実行
　↓　確認　　表示された UserForm1 について、
　　閉じるボタンが非表示になっていること、
　　Alt + F4 を押してもユーザーフォームを閉じることが出来ないこと
　　表示直後はCommandButton1が非活性で、
　　CommandButton2を押すとCommandButton1を押せるようになっていること、
　　CommandButton1を押すと、ユーザーフォームが閉じること
確認作業ここまで。

下記のコードを丸ごとコピペ、です。

' ' /// UserForm モジュール /// 以下、過不足なくそのままで
Option Explicit

#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

Private Const GWL_STYLE As Long = (-16&)　'　ウィンドウスタイルを取得するフラグ
Private Const WS_SYSMENU As Long = &H80000　'　閉じるボタンを表示するフラグ
Private Const CLASSNAME As String = "ThunderDFrame" '　クラス名

Private Sub UserForm_Initialize()
Dim nHwnd As Long
Dim nWindowLong As Long
　　nHwnd = FindWindow(CLASSNAME, Caption)　'　ウィンドウハンドルを取得する
　　nWindowLong = GetWindowLong(nHwnd, GWL_STYLE)　'　既定のウィンドウ属性を取得する
　　nWindowLong = (nWindowLong Xor WS_SYSMENU)　'　閉じるボタンを非表示に指定する
　　SetWindowLong nHwnd, GWL_STYLE, nWindowLong　'　ウィンドウ属性を設定する
　　DrawMenuBar nHwnd　'　メニューバーを再描画する
　　CommandButton1.Caption = "入力確定"　'　◆
　　CommandButton2.Caption = "入力完了"　'　◆
End Sub

Private Sub UserForm_Activate()
　　CommandButton1.Enabled = False　'　◆
　　Repaint　'　Userform再表示の度に再描画する
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
　　If CloseMode = vbFormControlMenu Then Cancel = 1　'　vba実行コードでのみ閉じることが可能
End Sub

Private Sub CommandButton1_Click()
　　Hide
End Sub

Private Sub CommandButton2_Click()　'　◆
　　CommandButton1.Enabled = True　'　◆
End Sub　'　◆

' ' ///　　　　　　　　　　 ///

> 何日か時間をかけて書いてくださったこと勉強します

いずれにしても、閉じるボタンを非表示にする為には、
API関数を使うのが一番簡単です。
形さえ覚えておけば使うのは難しくないですけれど、
読んで解らないものを使うのは色々気になりますよね。
FindWindow GetWindowLong SetWindowLong なんかは、
使用例も簡単に見つけられますから、
少しずつ、見て覚えていけばいいように思います。

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

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

"統一してください"は言い過ぎだったかも知れませんが、
Loadの際に描画したユーザーフォームは、
ブックを閉じるまでUnloadする必要が有るか無いかで言えば無いですよね。
その方が簡単そうだから、Unloadするとか、なのでしょうけれど、
今回提示したものは、ユーザーフォームを描画後に
閉じるボタン無しのメニューバーに変更して再描画するものなので、
ユーザーフォームを繰り返し再表示するようなら、
無駄な処理がますます増えてしまう、ということなのです。
偶にしか使わない、とか、暫くは再表示しないであろうから、Unloadする、とか、
そういうことなら、Unloadでもいいとは思いますけれど。
ただ、基本的には、
ShowしたらHide、再びShow、、、のようにして、
_Activate イベント の記述で、再表示時のデータ等の初期化処理をする
ような運用をするのがユーザーフォームだと思っています。
Load→Show→Hide→Show→Hide→Show→Hide→Unload
みたいに使う方がストレスなくエラーフリーだとも思います。

すぐにすべて理解するなんて誰にも無理でしょうし、
別に急ぐ必要ないですから、ボチボチで。
なんか色々ミスっちゃってスイマセンでした。
ご健闘を、、、。

お礼

cj_mover様
＞Load→Show→Hide→Show→Hide→Show→Hide→Unload
＞みたいに使う方がストレスなくエラーフリーだとも思います。
再度の詳しい説明ありがとうございました、理解できました。

＞ 　１．新規のブックに新しくユーザーフォームを挿入
＞ 　２、ユーザーフォームにコマンドボタンを２つ配置
＞ 　　　（名前などのプロパティは全てそのまま）
＞ 　３、UserForm1 モジュール に下記のコードを丸ごとコピペ
＞ 　　　（記述の全てをそのまま）
＞ 　４、標準モジュールあたりに、ユーザーフォーム実行マクロを記述
＞ 　　　（UerForm1.Show または UerForm1.Show vbModeless どちらでも）
動作確認の準備ですが１，２迄で出来きました
３、のコピー＆ペーストする場所ですが、コード表示画面にてユーザーフォームを表示し、そのユーザーフォーム内の部分をダブルクリックして、表示された画面にコードをコピー＆ペーストすればよいのでしょうか？、ペーストしたコードの初めの１０行ほどが赤字になっています、何処かおかしいでしょうか
よろしくおねがいします