Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12926 / 13646 ツリー ←次へ | 前へ→

【7940】ユーザーフォームのバツボタンを出したくない yama 03/9/24(水) 19:53 質問
【7941】Re:ユーザーフォームのバツボタンを出したく... INA 03/9/24(水) 19:57 回答
【7942】Re:ユーザーフォームのバツボタンを出したく... yama 03/9/24(水) 20:06 質問
【7943】Re:ユーザーフォームのバツボタンを出したく... INA 03/9/24(水) 20:18 回答
【7945】Re:ユーザーフォームのバツボタンを出したく... yama 03/9/24(水) 21:54 お礼

【7940】ユーザーフォームのバツボタンを出したく...
質問  yama  - 03/9/24(水) 19:53 -

引用なし
パスワード
   こんにちは。

ユーザーフォームの×(バツボタン)を出さないように
するにはどのようにしたらよいか
どなたかご存知でしょうか?

どなたかご存知でしたら教えてください。

以上宜しくお願いします。

【7941】Re:ユーザーフォームのバツボタンを出した...
回答  INA  - 03/9/24(水) 19:57 -

引用なし
パスワード
   無効にすることくらいしか、できないと思います。

【7942】Re:ユーザーフォームのバツボタンを出した...
質問  yama  - 03/9/24(水) 20:06 -

引用なし
パスワード
   ▼INA さん:
>無効にすることくらいしか、できないと思います。

なるほど。
無効にするにはどのようにしたら
よいか、教えていただけないでしょうか?

宜しくお願いします。

【7943】Re:ユーザーフォームのバツボタンを出した...
回答  INA  - 03/9/24(水) 20:18 -

引用なし
パスワード
   ユーザーフォームモジュールにコピペして下さい。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode <> vbFormCode Then
    MsgBox "×ボタンは使えません"
    Cancel = 1
  End If
End Sub

【7945】Re:ユーザーフォームのバツボタンを出した...
お礼  yama  - 03/9/24(水) 21:54 -

引用なし
パスワード
   ▼INA さん:
>ユーザーフォームモジュールにコピペして下さい。
>
>Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
>  If CloseMode <> vbFormCode Then
>    MsgBox "×ボタンは使えません"
>    Cancel = 1
>  End If
>End Sub

テストして見ます。
INAさん、いつもありがとう。

12926 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free