[[20050422225958]]　『ユーザーフォームの右上の×ボタンを表示しない』（Ｇ）　ページの最後に飛ぶ

『ユーザーフォームの右上の×ボタンを表示しない』（Ｇ）

ユーザーフォームの×ボタンを消してしまうコードはあるのでしょうか。

Ｅｘｃｅｌ２０００　Ｍｅ

 こちらは解決しましたか。
[[20050422114415]]『テキストボックスからワークシートへ入力』（Ｇ）

 （川野鮎太郎）

 非表示にするには、APIを使う必要がありますが、
 無効にするだけなら、closeイベントでcancel=true だけで出来ます。
 詳しくはヘルプでQueryCloseのページを読んでみて下さい。
  (INA)

QueryClseのヘルプには、APIといったものについてはのっていませんでした。
できれば、非表示にする方法をしりたいのですが。

 こんなのがありましたけど。。
http://park11.wakwak.com/~miko/Excel_Note/11-01_userform.htm#11-01-12
（SoulMan）

 Api というのは、EXCELではなく、WINDOWSに標準で備わっている
 Win32Apiというものの関数を利用するものを指します。

 Excelだけの機能であれば、ユーザーフォームモジュールに
 以下の記述をするだけで可能です。

 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
 End Sub

  (INA)

Excel上でApiの関数は使えないでしょうか。

 使えますよ。試してみては？
  (INA)

どうやればいいんでしょうか。やりかたがわからないのですが。

 上のページに書いてある通りにやるだけですよ。
http://ryusendo.no-ip.com/~ken/cgi-bin/uploader/src/0026.xls
（ケン）

ありがとうございます。ためしてみます。

できました。ありがとうございます。

 同じ項目の続きとかんがえられるので、こちらに統合しました。
（kazu）

『右上×ボタンを無効、コマンドボタンは有効に』（Ｃ）

　　　Windows Me Excel 2000使用

ユーザーフォームの右上×ボタンを無効にしたとき、コマンドボタンでユーザーフォームを
閉じたい場合、閉じる、と設定したコマンドボタンも無効になってしまうのですが、×ボタンは無効に、コマンドボタンのほうは有効にするコードの記述はどのようにかくのでしょうか。

 コマンドボタンでのCloseイベントを有効にするための変数を
使ってはいかがでしょうか。
モジュールレベル変数として
Dim FLAG as Boolean
を宣言しておき、
　
Private Sub UserForm_Initialize()
FLAG = True
End Sub
　
Private Sub CommandButton1_Click()'閉じるボタン
FLAG = False
Unload Me
End Sub
　
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = FLAG
End Sub
（みやほりん）

 QueryCloseでは、どのようにして閉じられようとしているのかを判別できます。
詳しくはQueryCloseのヘルプ参照。
　
'閉じるボタン
Private Sub CommandButton1_Click()
    Unload Me
End Sub
'QueryCloseイベント
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Select Case CloseMode
        Case vbFormControlMenu  '0 ユーザー フォームのコントロール メニューの [閉じる] がクリックされました。
            Cancel = True
        Case vbFormCode         '1 コードから Unload ステートメントが実行されました。
        Case vbAppWindows       '2 現在の Windows のオペレーティング環境セッションが終了しました。(Visual Basic のみ)
        Case vbAppTaskManager   '3 Windows のタスク マネージャによって、アプリケーションが閉じられました。(Visual Basic のみ)
    End Select
End Sub
（ご近所PG）連休ピンチ

 ご近所PGさん、助け舟ありがとう＆しばらくぶりです。
やはり、Helpよく読まなきゃダメですね。（みやほりん）

 時々質問を眺めてはいるんですが、回答するには至らない感じでございます。
「連休明けに」などと言うモノが３つ……私は連休じゃないんでもっと延ばしても良いですかね？
と言いたい（笑）
（ご近所PG）駄文失礼

できました。ありがとうございます。

コメント返信：

[ 一覧(最新更新順) ]

[[20050422225958]] 『ユーザーフォームの右上の×ボタンを表示しない』（Ｇ） ページの最後に飛ぶ

[[20050422225958]]　『ユーザーフォームの右上の×ボタンを表示しない』（Ｇ）　ページの最後に飛ぶ