Classic 2003 Menus

[CoreyDickinson]

Just upgraded from Excel 2003 to 2010 and hate the new ribbon menu format. Can anyone recommend a good FREE add-in that will allow me to use the classic menus from Excel 2003?

 

[S M C]

Excel 2003 Classic Menu

 

[JazzSP8]

Hmmm - I'd be interested in trying that myself as a recent forced update at week has given me all kinds of grief while I adapt to the change...

Unfortunately...

Attached Files - To view attachments in this forum your post count must be 20 or greater. You currently have 0 posts.

Can you get that from anywhere else?

 

[VoG]

Also http://www.mrexcel.com/forum/showpost.php?p=1644371&postcount=3

 

[ZVI]

The code below creates old style menus and command bars in Add-In tab of Ribbon.
Once upon a time it was made just for fun

' ZVI:2010-07-27 Creating of old style menus & CommandBars in Add-Ins tab of Excel 2007 Ribbon
Sub CreateOldStyleMenus()
  OldStyleDelete "Menus 2003", "Standard 2003", "Format 2003"
  NewCommandBar "Menus 2003", Array(30002.1, 30003.1, 30004.1, 30005.1, 30006.1, 30007.1, 30011.1, 30009.1, 30022.1, 30177.1, 30010.1)
  NewCommandBar "Standard 2003", Array(2520.01, 23.01, 3.01, 9004.01, 3738.01, 2521.01, 109.01, 2.01, 7343.01, 21.01, 19.01, 108.01, 128.06, 129.06, 9071.01, 1576.01, 226.13, 210.01, 211.01, 436.01, 1733.04, 30253.1, 984.01)
  NewCommandBar "Format 2003", Array(1728.04, 1731.04, 113.01, 114.01, 115.01, 120.01, 122.01, 121.01, 402.01, 1643.01, 396.01, 397.01, 398.01, 399.01, 3162.01, 3161.01)
End Sub

' Delete old style menus & CommandBars
Private Sub OldStyleDelete(ParamArray cbNames())
  Dim x: On Error Resume Next
  For Each x In cbNames
    CommandBars(x).Delete
  Next
End Sub

' Create old style menus & CommandBars
Private Sub NewCommandBar(cbName, cbIDs)
  Dim tp&, x: On Error Resume Next
  With CommandBars.Add(cbName, , , True).Controls
    .Parent.Visible = True
    For Each x In cbIDs
      tp = (x - Fix(x)) * 100
      .Add Type:=tp, ID:=x
    Next
  End With
End Sub

Initiating code of ThisWorkbook module:

' Code of ThisWorkbook module
Private Sub Workbook_Open()
  CreateOldStyleMenus
End Sub

The code can be put in Add-In

 

[jmumme]

Can you explain how to create this add-in? I have installed visual studio 2008 pro if that helps.

 

[ZVI]

Hi & welcome to the Board!

Visual studio is not required for this.

Add-in can be made in Excel:
1. In Excel create new workbook
2. Press Alt-F11 to go to VBE
3. Copy all the code into ThisWorkbook VBA module of workbook
4. Press Alt-Q to leave VBE
5. Save workbook as type Excel add-in, which has the extension .xla.

See more detailed explanations here: Creating An XLA Add-In For Excel

Regards,

 

[jmumme]

Thanks ZVI !!

 

[jmumme]

What should happen with the second section? It its own add-in?

Initiating code of ThisWorkbook module:

Code:

' Code of ThisWorkbook modulePrivate Sub Workbook_Open() CreateOldStyleMenusEnd Sub</PRE>

 

[ZVI]

Correction: the 1st part of post#5 code should go to the Module1 of VBAProject, the 2nd part – to ThisWorkbook module of VBAProject
You can find ThisWorkbook module in VBE left-side window of the project explorer.
Double click on ThisWorkbook module to activate its code module in the right side window.

Therefore, updated steps are as follows:

1. In Excel create new workbook
2. Press Alt-F11 to go to VBE
3. Copy the 1st part of the post #5 code to the clipboard (Clt-C)
4. Add new VBA module to VBAProject via VBE menu: Insert – Module
5. Paste code from the clipboard into the created Module1 (Ctrl-V)
6. Copy the 2nd part of the post#5 code to the clipboard (Ctrl-C)
7. Paste code from the clipboard into ThisWorkbook VBA module of VBAProject (Ctrl-V)
8. Press Alt-Q to leave VBE
9. Save workbook as type Excel add-in, which has the extension .xla