利用VBA在EXCLE2010和2007中找回2003式的经典菜单和工具栏

众所周知，从微软的Office 12(也就是咱们所说的Office 2007)开始，软件界面采用了Ribbon界面，又叫作功能区。Office 14（(也就是咱们所说的Office 2010）一样采用此种界面。对我我的而言，我很是喜欢这种全新的界面，不喜欢Office11（(也就是咱们所说的Office 2003）的那种菜单工具栏界面。

可是，也有不少人用不惯这种新的界面，有人问我，有办法找回原来的那种界面吗。

答案固然是确定的。网上也有这种找回菜单栏和工具栏的软件，有一个叫Classic Menu for Office,还有一个叫Addintools.

可是，对我来讲，我不敢用这种软件，由于不知道他们是怎么乱搞的，用着不放心。

因此，我利用本身强大的VBA知识(VBA是Office软件内置的一门编程语言，Office软件也是支持编程控制的，这一点不少人怕是不知道吧)，自已编程创造出经典的菜单栏和工具栏。

1.首先，咱们打开EXCLE 2010(或者2007)，而后，按下Alt+F11快捷键就能够呼出EXCLE的VBA界面（有些人用的什么精简版，没有VBA,那你就呼不出来了）。

2.咱们在呼出的VBA界面中，选择"插入"菜单下的"模块"，就产生了一个新模块，咱们在新模块中输入如下代码：

 

'- ==========================================================
'*     文件名  ：TYSoftExcel_14and12_like11.bas
'*     开发人员：袁培荣
'*     当前版本：1.0.2.2595
'*     建立时间：2012-02-25
'*     修改时间：2012-02-25
'*     功能说明：利用VBA在EXCLE2010和2007中找回2003式的经典菜单和工具栏
'*     版权说明：版权全部 袁培荣 YuanPeirong 
'*     编译环境：Windows 7(x64) SP1 简体中文专业版
'*     VBA版本： 7.0.1590
'- ==========================================================*/

Sub auto_open()
    ShowOldStyleMenus
End Sub

Private Sub ShowOldStyleMenus()
    On Error Resume Next
    
    Dim cBar As CommandBar
    Dim cBarCtrl As CommandBarControl
    Dim sMenuName As String
    Dim sToolbarName As String
    Dim iMenu As Integer
    
    sMenuName = "Old Style Menu"
    sToolbarName = "Old StyleToolbar"
    
    CommandBars(sMenuName).Delete '若是以前有同名菜单栏，删除之
    Set cBar = CommandBars.Add(sMenuName, , , True) '添加命令栏，名字为sMenuName，是一个临时菜单栏，即经常使用菜单项
    '参考：Set newMbar = CommandBars.Add _(Name:="newMenubar", Position:=msoBarRight, _MenuBar:=True, temporary:=True)
    With cBar
        .Visible = True '临时菜单栏可见
        For iMenu = 1 To 10
            Set cBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30001 + iMenu) '依次添加2003版的弹出是菜单
        Next iMenu
        Set cBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30022) '图表菜单
        Set cBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30177) '自选图形
    End With
    
    CommandBars(sToolbarName).Delete '若是以前有同名工具栏，删除之
    Set cBar = CommandBars.Add(sToolbarName, , , True) '设置变量
    With cBar
        .Visible = True
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=2520) 'New
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=23) 'Open
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=3) 'Save
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=4) 'Print
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=109) 'Print Preview
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=2) 'Spelling
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=21) 'Cut
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=19) 'Copy
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=22) 'Paste
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=108) 'Format Painter
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=210) 'Sort Ascending
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=211) 'Sort Descending
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=984) 'Help
        Set cBarCtrl = .Controls.Add(Type:=msoControlComboBox, ID:=1728) 'Font
        Set cBarCtrl = .Controls.Add(Type:=msoControlComboBox, ID:=1731) 'Font Size
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=113) 'Bold
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=114) 'Italic
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=115) 'Underline
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=120) 'Align Left
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=122) 'Center
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=121) 'Align Right
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=402) 'Merge and Center
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=395) 'Accounting Number Format
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=396) 'Percent Style
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=397) 'Comma Style
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=398) 'Increase Decimal
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=399) 'Decrease Decimal
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=3162) 'Decrease Indent
        Set cBarCtrl = .Controls.Add(Type:=msoControlButton, ID:=3161) 'Increase Indent
    End With '依次设置经常使用的命令
    Set cBar = Nothing '清除变量
    Set cBarCtrl = Nothing
    On Error GoTo 0
End Sub

3.而后，咱们在VBA界面中点击保存，再关闭VBA界面，就回到了EXCLE界面。

4.咱们将这个EXCLE文件另存为 经典菜单和工具栏.xlsm （必定要存成xlsm，xls或xlsx格式都是不行的），而后关闭EXCLE软件。

5.咱们将获得的 经典菜单和工具栏.xlsm 这个文件放到EXCLE的启动目录里去，具体目录为:

2007版:  C:\Program Files\Microsoft Office\Office12\XLSTART

2010版:  C:\Program Files\Microsoft Office\Office14\XLSTART

固然，前面的C:\Program Files\Microsoft Office要视你具体的Office安装目录而定。

6.好了，再次打开EXCLE 2010(或者2007) 你会发现，经典菜单和工具栏回来了。

附我本身的效果图一张: