Ｐａｇｅ 483 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ツールバーを利用不可にする ハマゾウ 02/12/24(火) 17:55 ┗Re:ツールバーを利用不可にする ぴかる 02/12/25(水) 19:03 ┗Re:ツールバーを利用不可にする ハマゾウ 02/12/26(木) 2:51 ┗Re:ツールバーを利用不可にする ぴかる 02/12/26(木) 8:07 ─────────────────────────────────────── ■題名 ： ツールバーを利用不可にする ■名前 ： ハマゾウ <hama@cty8.com> ■日付 ： 02/12/24(火) 17:55 -------------------------------------------------------------------------
| Excel Bookが１つも開いていない状態のときにメニューバーやツールバー内の特定のコントロールを利用不可（薄い色）にするにはどうすればよいのでしょうか？ご教授願います。 |
| ハマゾウさん、こんにちは。 目安箱にて公開中のピカつーるをサンプルにしてお答えします。 ダウンロードして頂いてクラスモジュールに以下のコードを貼り付けて下さい。 （パスワードは、"PIKARU"です。） 上段ツールバーのすべてクリア・パレート図アイコンの表示が切り替わります。 あんまり参考にならないかもしれませんが、よろしかったらお試し下さい。 Private Sub WBK_Activate() With Application.CommandBars("オリジナル標準") .Controls(11).Enabled = True .Controls(32).Enabled = True End With End Sub '以前につんさんに教えてもらったコードをちと改造！ Private Sub WBK_BeforeClose(Cancel As Boolean) Dim BOOK数 As Long Dim wb As Workbook BOOK数 = 0 For Each wb In Workbooks If Windows(wb.Name).Visible = True Then BOOK数 = BOOK数 + 1 End If Next wb If BOOK数 = 1 Then With Application.CommandBars("オリジナル標準") .Controls(11).Enabled = False .Controls(32).Enabled = False End With End If End Sub |
| ぴかるさん、こんにちは ご教授いただいたコードそしてピカつーるとても参考になりました。 どうもありがとうございました。 ただ、原因は分からないのですがツールバーを有効にする場合、 "Private Sub WBK_Activate()"の箇所を、 "Private Sub WBK_WindowActivate(ByVal Wn As Window)" に変更しないと機能しませんでした。 もし原因がお分かりでしたら教えていただけないでしょうか？ |
| ハマゾウさん、おはようございます。 >ただ、原因は分からないのですがツールバーを有効にする場合、 >"Private Sub WBK_Activate()"の箇所を、 >"Private Sub WBK_WindowActivate(ByVal Wn As Window)" >に変更しないと機能しませんでした。 ゴメンナサイ、分かりません。こちらでは問題なく動作していますし、今回使ったイベントも「これ使ったら、行けるかな？」と思って、たまたま使ったらＯＫだったもので・・・。 つまり、よく分かってないんです。中途半端で申し訳ないです。 お分かりの方、お見えになりましたらよろしくお願い致します。 |