自动生成VBA窗体菜单

humengqiang

下载学习了，我测试了下可以使用，不过我的excel菜单如何恢复？

我的QQ问问

谢谢，对新手很有帮助

qbh555

不是很明白什么用

tuotuo51999

好东东啊，收下了！

xazls

humengqiang 发表于 2012-4-20 14:12
下载学习了，我测试了下可以使用，不过我的excel菜单如何恢复？

   '1、“按ALT+F11”，进入VBA编程；
    '2、然后单击鼠标右键——插入模块；
    '3、往模块里面添加代码——[运行子过程/用户窗体]按键，就可以运行。

'----将下面代码粘入----

Sub Del_menu ()
   Dim aa, bb As Boolean
   bb = False
   aa = True
   Application.CommandBars("ply").Enabled = aa '右键点工作表标签是否可用
   Application.CommandBars("cell").Enabled = aa '右键点单元格是否可用
   Application.CommandBars("toolbar list").Enabled = aa '右键点工具栏及“视图”－“工具栏”是否可用
   Application.CommandBars("autocalculate").Enabled = aa '右键点状态栏是否可用
   Application.CommandBars("worksheet menu bar").Enabled = aa
   Application.CommandBars(1).Enabled = aa '以上两句的作用都是把菜单取消
   Application.CommandBars(2).Enabled = aa '暂时未知
   Application.CommandBars(3).Enabled = aa '常用工具栏是否可用
   Application.CommandBars(3).Controls(3).Enabled = aa '使常用工具栏中第三个“保存”是否可用
   Application.CommandBars(4).Enabled = aa '格式工具栏是否可用
   Application.CommandBars(5).Enabled = aa '暂时未知
   Application.CommandBars(1).Enabled = aa '恢复菜单可用
   Application.CommandBars(1).Controls(1).Enabled = aa '使菜单中的“文件”是否可用
   Application.CommandBars("file").Controls("页面设置(&U)...").Enabled = aa '菜单中的“文件”中的“页面设置”是否可用
   Application.CommandBars(1).Controls(4).Enabled = aa '菜单中的第四个“插入”是否可用
   Application.CommandBars(1).Controls(4).Caption = "victor" '更改名称
   Application.CommandBars(1).Reset '恢复菜单
   Application.DisplayFormulaBar = aa '编辑栏是否显示
   Application.DisplayStatusBar = aa '状态栏是否显示
   ActiveWindow.DisplayHeadings = aa '行号列标是否显示
   ActiveWindow.DisplayWorkbookTabs = aa '工作表标签是否显示
   ActiveWindow.DisplayHorizontalScrollBar = aa '水平滚动条是否显示
   ActiveWindow.DisplayVerticalScrollBar = aa '垂直滚动条是否显示
End Sub

同心自相知

好东西啊
藏宝。
感谢！

mimiboby

太好了，学习

rflhjl

老师你好！
下面这段代码：在新建EXCEL中运行正常，但导入到别的文当中，就出现了最后面的问题。
Private Sub UnSelectLastMenu() '取消上次选择
If Not LastSelect_Menu Is Nothing Then
    With LastSelect_Menu
        .Picture = LoadPicture()
        .BackStyle = fmBackStyleTransparent
        .BorderStyle = fmBorderStyleNone
    End With
End If
End Sub
请教老师：窗口运行时出现 LoadPicture子过程或函数未定义，怎么解决？我用的是2007谢谢！请老师勿必帮忙。

rflhjl

板主不在，其它高手就没有人愿意帮忙？

geryjun

这软件真的很不错呀。