[リストへもどる]
一括表示

投稿時間:2003/12/14(Sun) 09:44
投稿者名:ちくわ
URL :
タイトル:
EXCELのユーザーフォーム
VBAの事なのですが・・・
EXCELのユーザーフォーム右上の[×]ボタン(閉じる)を無効又は、
非表示にしたいのですが、分かる方教えて下さい。

投稿時間:2003/12/14(Sun) 10:37
投稿者名:にせ
Eメール:
URL :
タイトル:
EXCELのユーザーフォームの無効
> VBAの事なのですが・・・
> EXCELのユーザーフォーム右上の[×]ボタン(閉じる)を無効又は、
> 非表示にしたいのですが、分かる方教えて下さい。

EXCELのユーザーフォーム右上の[×]ボタン(閉じる)を無効
フォームにコマンドボタンを貼り付けて以下コードでなるかと思います。
恐らく基本的にVBと名前が変わるだけだと…。

Option Explicit

Private Sub CommandButton1_Click()
    
    Unload Me
    End
    
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
  'コードからのアンロード要求しか受け付けない
    If CloseMode <> vbFormCode Then
        Cancel = True
    End If
    
End Sub

投稿時間:2003/12/14(Sun) 11:26
投稿者名:ちくわ
URL :
タイトル:
Re: EXCELのユーザーフォームの無効
> Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
>    
>   'コードからアンロード要求しか受け付けない
>     If CloseMode <> vbFormCode Then
>         Cancel = True
>     End If
>    
> End Sub

早速のレスありがとうございます。
ふむふむ・・・
確かに[×]ボタンの要求は受け付けませんが、心理的に[×]ボタンは非表示か
無効にしたいですね。

しかし内容的には的を得ているのでしばらく使ってみます。
又、違う方法がありましたら宜しくお願いします。

投稿時間:2003/12/14(Sun) 13:35
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^2: EXCELのユーザーフォームの無効
> 又、違う方法がありましたら宜しくお願いします。

VB同様SetWindowLong等のAPIを使用すればできます。
サンプルは下記にあります。Excel2000 で試して見ましたら、取り外し・取り付けが
問題なくできましたよ。

  http://park11.wakwak.com/~miko/Excel_Note/11-01_userform.htm#11-01-12
 http://park11.wakwak.com/~miko/Excel_Note/03-01_gamen.htm#03-01-01

その他VBAの事なら下記で調べて見て下さい。
 http://www2.hornet.co.jp/tomoko/MikoNotes/default.htm

投稿時間:2003/12/14(Sun) 19:45
投稿者名:ちくわ
Eメール:
URL :
タイトル:
Re^3: EXCELのユーザーフォームの無効
更に試してみます。
ありがとうございます。