excel2003屏蔽菜单、工具栏等代码大全
需积分: 3 166 浏览量
2012-01-31
01:13:46
上传
评论
收藏 35KB DOC 举报
excel2003 屏蔽菜单、工具栏等代码大全
如果打开文件自动屏蔽,把屏蔽代码放入 Workbook_Open 事件中， 值为 False:
Private Sub Workbook_Open()
……
End Sub
如果想自动恢复,把恢复代码放入 Workbook_BeforeClose 事件中，值为 True：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
……
End Sub
Application.CommandBars(1).Controls(" 工具(&T)").Controls(" 宏 (&M)").Enabled = False* *' 工
具-宏变成灰色，如忘了变回来，工具-自定义-工具栏选项-工作表菜单栏-重新设置即可
Application.CommandBars("ply").Controls("查看代码(&V)").Enabled = False* ** ** * '右键工作表
标签“查看代码”为灰色
Application.CommandBars("Document").Controls("查看代码(&V)").Enabled = False* ***'右键工
作薄“查看代码”为灰色
'常用的屏蔽代码：
Application.CommandBars("Worksheet Menu Bar").Enabled = False* * '屏蔽菜单栏
Application.DisplayFormulaBar = False* ** ** ** ** ** ** ** ** * '屏蔽编辑栏
Application.DisplayStatusBar = False* ** ** ** ** ** ** ** ** ***'屏蔽状态栏
下面任选一组即可，不可同时出现。
Application.CommandBars("Standard").Visible = False* ** ** ** ***'屏蔽常用工具栏，右键可选
Application.CommandBars("Formatting").Visible = False* ** ** ** *'屏蔽格式工具栏，右键可选
Application.CommandBars("Standard").Enabled = False* ** ** ** ***'去除常用工具栏，右键也删掉
Application.CommandBars("Formatting").Enabled = False* ** ** ** *'去除格式工具栏，右键也删
掉
Application.CommandBars("Toolbar list").Enabled = False* ** ** * '屏蔽右键工具栏
Application.CommandBars("cell").Enabled = False* ** ** ** ** ** *'屏蔽单元格右键单击
Application.CommandBars("Column").Enabled = False* ** ** ** ** * '屏蔽列右键单击
Application.CommandBars("Row").Enabled = False* ** ** ** ** ** * '屏蔽行右键单击
Application.Assistant.Visible = False* ** ** ** ** ** ** ** ** * '应用程序的辅助的可见
Application.CommandBars.DisableCustomize = True* ** ** ** ** ** *'去除右键工具栏中的“自定义”
ActiveWindow.DisplayHeadings = False* ** ** ** ** ** ** ** ** ***'屏蔽行号列标
ActiveWindow.DisplayWorkbookTabs = False* ** ** ** ** ** ** ** * '屏蔽工作表标签
ActiveWindow.DisplayVerticalScrollBar = False* ** ** ** ** ** ***'屏蔽垂直滚动条
ActiveWindow.DisplayHorizontalScrollBar = False* ** ** ** ** ** *'屏蔽水平滚动条
Application.CommandBars("ply").Enabled = False* ** ** ** ** ** * '屏蔽工作表标签右键单击
Application.CommandBars("Visual basic").Enabled = False* ** ** * ' 屏 蔽 应用程 序 的 < 命 令块
>("Visual basic" )的激活
Application.OnKey "%{f11}", " "* ** ** ** ** ** ** ** ** ** ** * '屏蔽组合键 ALT+F11，%代表 ALT
Application.OnKey "%{F11}"* ** ** ** ** ** ** ** ** ** ** ** ** *'解除屏蔽 ALT+F11
Application.OnKey "%{f8}", " "* ** ** ** ** ** ** ** ** ** ** ***'屏蔽组合键 ALT+F8
评论0