Sub MakeMenu2003()
      Dim objCmndBr As CommandBar, objMenu03 As CommandBar, objCtrl As CommandBarControl
      Dim avArr, li As Long
      'Удаляем меню, если оно уже создано
      On Error Resume Next
      Application.CommandBars("Меню 2003").Delete
      On Error GoTo 0
      'Для английской локализации
'    avArr = Array("&File", "&Edit", "&View", "&Insert", "F&ormat", "&Tools", "&Data", "&Window", "&Help")
      'Для русской локализации
      avArr = Array("Фа&йл", "&Правка", "&Вид", "Вст&авка", "Фор&мат", "С&ервис", "&Данные", "&Окно", "&Справка")
      'Создаем панель на которой будут контролы со старым видом меню
      Set objMenu03 = Application.CommandBars.Add("Меню 2003", , False)
      'Создаем контролы путем копирования групп меню целиком
      For li = LBound(avArr) To UBound(avArr)
          Application.CommandBars("Built-in Menus").Controls(avArr(li)).Copy objMenu03
      Next li
      'Делаем меню видимым
      Application.CommandBars("Меню 2003").Visible = True
End Sub