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

質問

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

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

回答No.3

cj_mover

こんにちは。

以下のような感じで如何でしょう。
一応、x32|x64互換で書きましたが、x64ビット環境でしか動作確認してません。
x32ビット環境で８年前に書いたものを元に書いているので、
たぶん、だいじょぶ、と思いますが、、、。
閉じるボタンを非表示にする設計は、私も多用していましたから、
ニーズとしては、良く理解できます。

条件付きコンパイルに慣れていないと驚いちゃうかもしれませんが、
#If VBA7 Then　から　#Else　の間の記述が、x64ビット用
#Else　から　#End If　の間の記述が、x32ビット用
です。
不要な記述（#If VBA7 Then ... #Else ... #End If を含む）は
削除して構いません。

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

また、ウィンドウ関係の Win32 API は
WEB上でも、情報豊富ですから、
ご自分でもメンテナンス出来るよう努めてください。
コメントに書いた説明以上のことは、ご容赦ください。

動作確認の上、何か不足あれば、補足欄にでも書いてみて下さい。

以下、サンプルです。

' ' /// 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 Sub DrawMenuBar Lib "user32" Alias "SetWindowLongA" _
　　(ByVal hWnd 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　Sub DrawMenuBar Lib "user32" Alias "SetWindowLongA" _
　　(ByVal hWnd 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　'　メニューバーを再描画する
End Sub

Private Sub UserForm_Activate()
　　Repaint　'　Userform再表示の度に再描画する
End Sub

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

Private Sub CommandButton1_Click()
　　Hide　'　注意！！Userform は UnLoad するよりも Hide するのが基本です！！
End Sub