ник: Василий
огромное спасибо сейчас попробую 
Public Sub ResetMainMenu()
Dim cbar As CommandBar
For Each cbar In CommandBars
If cbar.NAME = "MainMenu" Then
CommandBars("MainMenu").Delete
Exit For
End If
Next cbar
Dim сBar As CommandBar
For Each сBar In CommandBars
сBar.Enabled = True
Next сBar
End Sub
так пойдет? 