Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46423 / 76735

←次へ　｜　前へ→


	【35283】Re:ツールバーのマクロ

こば。 - 06/2/25(土) 14:44 -


	引用なし

	パスワード

▼Kein さん：
>Worksheet_Activate イベントで設定、Worksheet_Deactivate イベントで解除、
>というようにすれば、それを入れたシートのみでの処理になりますが。

keinさんありがとうございました。
他のExcelシートを開くとやはり、同じ状態でツールバーが設定されてしまいます。
Worksheet_Activateの設定が間違っていますでしょうか・・・。
各利用者ごとにツールバーの設定が異なるため、その情報を取得しておいて、
シートを閉じたときに設定を戻す必要があるのでしょうか。

Sub Worksheet_Activate()
　　Application.CommandBars("toolbar").Visible = True
　　Application.CommandBars("Standard").Visible = False
　　Application.CommandBars("Formatting").Visible = False
　　Application.CommandBars("Watch Window").Visible = False
　　Application.CommandBars("3-D Settings").Visible = False
End Sub

Sub Worksheet_Deactivate()
　　Application.CommandBars("toolbar").Visible = False
　　Application.CommandBars("Standard").Visible = True
　　Application.CommandBars("Formatting").Visible = True
　　Application.CommandBars("Watch Window").Visible = True
　　Application.CommandBars("3-D Settings").Visible = True
End Sub

0 hits

▼

【35189】ツールバーのマクロ kino 06/2/23(木) 14:13