Sub [URL="http://spreadsheetpage.com/index.php/tip/old_style_menus_in_excel_2007/"]MakeOldMenus[/URL]()
Dim cb As CommandBar
Dim cbc As CommandBarControl
Dim OldMenu As CommandBar
' Delete it, if it exists
On Error Resume Next
Application.CommandBars("Old Menus").Delete
On Error GoTo 0
' Create an old-style toolbar
' Set the last argument to False for a more compact menu
Set OldMenu = Application.CommandBars.Add("Old Menus", , True)
' Copy the controls from Excel's "Built-in Menus" shortcut menu
'traduction pour un Excel français
With CommandBars("Built-in Menus")
.Controls("&Fichier").Copy OldMenu
.Controls("&Edition").Copy OldMenu
.Controls("&Affichage").Copy OldMenu
.Controls("&Insertion").Copy OldMenu
.Controls("F&ormat").Copy OldMenu
.Controls("&Outils").Copy OldMenu
.Controls("&Données").Copy OldMenu
.Controls("&Fenêtre").Copy OldMenu
.Controls("&?").Copy OldMenu
End With
' Make it visible. It appears in the Add-Ins tab
Application.CommandBars("Old Menus").Visible = True
End Sub