概要: sub aaa()dim aa, bb as booleanaa = truebb = falseapplication.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 = aaapplication.commandbars(1).e
一些关于禁用EXCEL中菜单和工具的总结,标签:工作总结范文,年度工作总结,http://www.67jx.comsub aaa()
dim aa, bb as boolean
aa = true
bb = false
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("页面设置(&
amp;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
'垂直滚动条是否显示
application.caption = "工资统计系统"
'标题栏中的“microsoft excel”更换为“工资统计系统”
end sub