第一种方法:
运行如下VBA程序,这种方法比较安全,如仍不能恢复则顺序采用以下两种方法:
Private Sub 恢复右键1()
Application.CommandBars("cell").Reset '右键点单元格恢复
End Sub
以上语句也参考:
Application.CommandBars("ply").Enabled = true '右键点工作表标签是否可用 Application.CommandBars("cell").Enabled = true '右键点单元格是否可用 Application.CommandBars("toolbar list").Enabled = true '右键点工具栏及“视图”-“工具栏”是否可用 Application.CommandBars("autocalculate").Enabled = true '右键点状态栏是否可用
如果是在“分页预览”的工作表中改变右键菜单造成默认菜单不能恢复的,则引用右键菜单代码,但不同操作系统和Office版本其代码可能不一样,通常30~45之间:
Private Sub 恢复右键2()
Application.CommandBars(41).Reset 'Win7 Excel2007 'Application.CommandBars(39).Reset 'WinXP Excel2007
End Sub
可以通过以下程序查看右键(Cell)代码:
Sub ShowMenuName() '在当前单元格以下显示Excel菜单和工具栏Id与对应名称 Dim I As Integer Cells(1, 1) = "CommandBars(Id)" Cells(1, 2) = "CommandBars(Id).Name" For I = 1 To 95 Cells(I + 1, 1) = I Cells(I + 1, 2) = Application.CommandBars(I).Name Next I End Sub
第二种方法:
运行如下VBA(推荐使用)程序,遍历CommandBars对象集合: Private Sub 恢复右键3()
Dim ZHYZ As CommandBar For Each ZHYZ In Application.CommandBars ZHYZ.Enabled = True Next End Sub 第三种方法,比较有效,但自定义菜单和工具也将被删除: 1. 删除C:Documents and Settings用户名Application DataMicrosoftExcelXLSTART下的所有文件 2. 删除*.xlb文件,方法是:关闭excel----开始---搜索---输进“*.xlb”----搜索出这个文件删除它----重新启动excel。(留意,删除*.xlb文件也将删除所有工具栏和菜单栏的自定义设置! ) 一般在这里:C:Documents and Settings用户名Application DataMicrosoftExcel