虽然Excel的最新版本已经是2010版，但还是不少人还一直在用Excel2003以下版，或者还习惯于老版本的经典菜单。从2007版界面的变动，让很多习惯于旧版界面的用户不太适应，因此收集了下面两个在新版中，生成经典菜单的VBA代码：

 添加2003版菜单到右键菜单中()
With Application.CommandBars("cell")
.Reset
With .Controls.Add(Type:=msoControlButton, before:=1)
.Caption = "2003版菜单"
.BeginGroup = True
.OnAction = "菜单2003"
End With
End With
End Sub
Sub 菜单2003()
Application.CommandBars("Built-in Menus").ShowPopup
End Sub
Sub 重置右键菜单()
Application.CommandBars("cell").Reset
End Sub

Sub 生成2003版菜单在加载项中()
Set tbar = CommandBars.Add("Excelba")
tbar.Visible = True
For Each a In Array(1, 4, 8, 10, 13, 18, 23, 27, 28)
CommandBars("Built-in Menus").Controls(a).Copy (tbar)
Next
End Sub
Sub 删除加载项中2003版菜单()
CommandBars("Excelba").Delete
End Sub