Excel VBA質問箱 IV

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

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


12952 / 13644 ツリー ←次へ | 前へ→

【7753】BOOKの×印で閉じると同時に自作ツールバーを消すには? とろろこんぶ 03/9/17(水) 11:10 質問
【7757】Re:BOOKの×印で閉じると同時に自作ツールバ... Jaka 03/9/17(水) 11:30 回答
【7800】Re:BOOKの×印で閉じると同時に自作ツールバ... とろろこんぶ 03/9/18(木) 13:06 お礼

【7753】BOOKの×印で閉じると同時に自作ツールバ...
質問  とろろこんぶ  - 03/9/17(水) 11:10 -

引用なし
パスワード
   こんにちは。
質問です。

あるマクロの入ったBOOK1があります。
このマクロの入ったBOOK1を開くと
自作のツールバーが自動的に出てきます。
このBOOK1を閉じるときに、
自作のツールバーも自動的に消すことは可能でしょうか?

わかる方がいらっしゃれば教えてください。

ちなみに・・・
自作ツールバーは、
(Module1)
Sub AddCmdBar()
  Dim myCB As CommandBar

  On Error Resume Next
  CommandBars("MyMacro").Delete
  
  Set myCB = Application.CommandBars.Add(Name:="MyMacro")
    
  With myCB
    .Controls.Add Type:=msoControlButton, ID:=2520, Before:=1
    .Controls.Add Type:=msoControlButton, ID:=23, Before:=2
    .Controls.Add Type:=msoControlButton, ID:=3, Before:=3
    .Visible = True
  End With
End Sub

自動的にツールバーを出すのはこんなかんじで作りました。
(オブジェクトのThisBook)
Private Sub Workbook_Open()
  AddCmdBar        'BOOK1を開いたときにツールバーを出す
End Sub

【7757】Re:BOOKの×印で閉じると同時に自作ツール...
回答  Jaka  - 03/9/17(水) 11:30 -

引用なし
パスワード
   こんにちは。
sub Auto_Close に
下記コードを書いておけば...。

On Error Resume Next
CommandBars("MyMacro").Delete

【7800】Re:BOOKの×印で閉じると同時に自作ツール...
お礼  とろろこんぶ  - 03/9/18(木) 13:06 -

引用なし
パスワード
   ▼Jaka さん:
こんにちは。
早速のお返事ありがとうございました。
やってみます。

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