Thema: Kontextmenue deaktivieren | Herbers Excel-Forum

Hallo,
Rudi und Robert haben mir heute diesen Befehl erstellt:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars("Worksheet Menu Bar").Enabled = Sh.Name <> "Tabelle1"
End Sub

Wie schaffe ich es nun wieder diesen Befehl zu deaktivieren? Wenn ich mit Tabele1 schließe, und die nächste Mappe öffne, ist da Kontextmenue immer noch ausgeblendet.
Wie kann man aus "Tabelle1" "komplette Mappe" machen?
Danke für eure Hilfe.
Gruß
Karsten

Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Enabled = TRUE
End Sub

Danke