【 kt閉じるボタン 】

UserFormの閉じるボタン『×』を無効化するサブルーチンです。

【 構 文 】

Call kt閉じるボタン(

MyCaption, CloseSW, Resp )

MyCaption	‥‥‥	String 型
CloseSW	‥‥‥	String 型
Resp	‥‥‥	String 型( ByRef )

【 解 説 】

UserFormの閉じるボタン『×』を無効化するにはＡＰＩ を使用しますが､ＡＰＩ 処理を
サブルーチン内部に閉じ込めていますので､利用する側では一切意識する必要は
ありません。

しかしながら､[QueryClose]イベントプロシジャーでのオペレーター操作のチェックも
一緒に記述しておく事をお薦めします。

【 使 用 例 】

Private Sub UserForm_Initialize()
Dim Resp As String
  Call kt閉じるボタン(Me.Caption, "無効", Resp)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  ' EX2002以降の事を考慮して[QueryClose]での判定も残す
  If (CloseMode = vbFormControlMenu) Then
    Cancel = True  ' 閉じるボタン(X)は無効
  End If
End Sub