急！急！急！隐藏菜单栏无法还原了，麻忙各位老师指点一下如何才能恢复，急！！！

老磨石

我今天打开买的《别怕，Excel VBA其实很简单(第2版)》事例文件“6.5.2 显示或隐藏菜单栏”，我现在电脑所有文件菜单栏全部都隐藏了，不知道怎么才能恢复，请教各位老师如何解决，谢谢。急！急！急！

老磨石

这是工作簿内的代码Option Explicit

Sub MenuHide1()
    With Application.CommandBars(1)
        .Controls("文件(&F)").Visible = False      '隐藏"文件"菜单
        .Controls("编辑(&E)").Visible = False      '隐藏"编辑"菜单
        .Controls("视图(&V)").Visible = False      '隐藏"视图"菜单
        .Controls("插入(&I)").Visible = False      '隐藏"插入"菜单
        .Controls("格式(&O)").Visible = False      '隐藏"格式"菜单
        .Controls("工具(&T)").Visible = False      '隐藏"工具"菜单
        .Controls("数据(&D)").Visible = False      '隐藏"数据"菜单
        .Controls("窗口(&W)").Visible = False      '隐藏"窗口"菜单
        .Controls("帮助(&H)").Visible = False      '隐藏"帮助"菜单
    End With
End Sub

Sub MenuHide2()
    Dim i%  '定义一个变量
    With Application.CommandBars(1)
        For i = 1 To .Controls.Count
           ' .Controls(i).Visible = False   '隐藏第i个菜单
            .Controls(i).Visible = True '显示菜单
        Next
    End With
End Sub


Sub MenuHide3()
    Application.CommandBars(1).Enabled = False   '隐藏菜单栏
   ' Application.CommandBars(1).Enabled = True
End Sub

ggmmlol

查找 代码中的 False ，【全部替换】成 True

然后运行代码，就可以了

老磨石

ggmmlol 发表于 2018-7-15 20:15
查找 代码中的 False ，【全部替换】成 True

然后运行代码，就可以了

谢谢回复！我刚才又把视频看了一下，已解决。