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).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'垂直滚动条是否显示Application.Caption = "工资统计系统"'标题栏中的“Microsoft Excel”更换为“工资统计系统”End Sub