EXCEL VBAコミュの【質問】アクティブなブックだけメニュ・ツールバーを非表示にしたい

メニュー・ツールバーを非表示にするために
下記コードを追加したら
他のブックにも影響してしまいました。
アクティブなブックにのみ反映させるには
どう修正したらよいでしょうか？

どなたか教えてください。

------------------------------
Dim cmdBar As CommandBar

On Error Resume Next

For Each cmdBar In Application.CommandBars
If cmdBar.Name = "Worksheet Menu Bar" Then
cmdBar.Enabled = False
Else
cmdBar.Visible = False
End If
Next cmdBar

On Error GoTo 0

------------------------------

コメント(5)

最初
全て
最新の40件

[2] mixiユーザー 12月13日 21:11

そうなんですか・・・
初心者なもので内容はあまり理解してませんでした。
ありがとうございます。

[3] mixiユーザー 12月13日 21:42

そのブックがアクティブ/非アクティブになったときに、
自力で切り替えるようにすればいいです。
具体的には、
Private Sub Workbook_Open()
Private Sub Workbook_Activate()
で、非表示にし、
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Private Sub Workbook_Deactivate()
で、表示するようにすればいいかと思います。

[4] mixiユーザー 12月14日 12:26

Open・BeforeCloseで試したところ
閉じる前の保存確認でキャンセルすると
メニューバーが表示されてしまいました。

Activate・Deactivateでバッチリ解決できました。
ありがとうございました。

[5] mixiユーザー 12月15日 02:19

Thisworkbook.Saved=True
をしておくと保存確認を出さずに閉じる事が出来ますね。

ログインすると、みんなのコメントがもっと見れるよ