Add a Custom Ribbon to an Excel File With VBA

I have an 2003 Excel file that is heavily programmed (through VBA) and I need to create a functioning version of this file in Excel 2010. I've read a lot of documents on this, but none seems to address my specific need. Essentially I want to hide all the default groups on the Ribbon and add a set of my own (similar to what was done in this file for the 2003 menu system, which was all managed with VBA code).

I already have the initial XML file defined with the changes that I want, but do not know how to easily incorporate that file into my Excel file. The customizations need to remain with the file.

The second piece is that I need to be able to reset the Ribbon back to the Excel default settings on closing the file.

Any assistance, either by way of specific example or by pointing me to some explicit documentation, would be greatly appreciated. Thanks in advance.

When being upgraded to office 2010 by our corporate policies, I was shocked by his change of behavior which destroyed a lot of already functioning VBA code in Excel and Outlook.

It's not just because Office is upgrades that we suddenly have load of time to modified our automated procedures!!!

I found the least resistance method:
There is something called an Quick Access Toolbar above the ribbon. The last icon has the helptext "Customize the Quick Access Toolbar". Click that and "More Commands" and you will be able select Macros and add calls to functionality which was before in your Menu's. Using this you could be up and running in hours instead of in several weeks.

P.S. I don't know what business can take impat on business processes, just because microsoft want's to force a new policy on you. Microsoft have found some, inculding my company and yours, Greg.

Dear Greg,
For hide all the default groups on the Ribbon and add your own and again reset the Ribbon back to the Excel default settings on closing the file you have to add below code in workbook level.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.Version > 12 Then
HideEveryTab
End If
End Sub

Private Sub Workbook_Open()
If Application.Version > 12 Then
DisplayRibbonTab
End If
End Sub

Sub HideEveryTab()
'Hide every Tab, Group or Control(we use Tag:="")
Call RefreshRibbon(Tag:="")
End Sub

Sub DisplayRibbonTab()
'Show only the Tab, Group or Control with the Tag "MyPersonalTab"
Call RefreshRibbon(Tag:="MyPersonalTab")
End Sub