Makro problem

Sub MenüsUndSymbAusblenden()
Dim cb As CommandBar
MenuBars.Add.Activate
For Each cb In CommandBars
cb.Enabled = False
Next
End Sub

Sub symbolleistenanzeigen()
Dim cb As CommandBar
On Error Resume Next
For Each cb In CommandBars
cb.Enabled = True
Next
Application.CommandBars(1).Visible = True
End Sub

Es funktioniert super aber ich möchte das Symbolleisten nur in diese Arbeitsmappe verschwinden. Zur zeit wirken diese Makros auf alle offenen Arbeitsmappen.
Was mache ich falsch

Danke für eure Hilfe
Gruß Sascha