VBA控制菜单栏上的菜单.doc

VBA控制菜单栏上的菜单Sub test()视图工具栏中，各种工具对应的英文名称worksheet menu bar表示工作表菜单栏Application.CommandBars(worksheet menu bar).Enabled = falseformatting表示格式工具栏Application.CommandBars(Formatting).Visible = Falsestandard表示常用工具栏Application.CommandBars(Standard).Visible = falsaedrawing表示绘图工具栏Application.CommandBars(Drawing).Visible = Falsecontrol toolbox表示控件工具箱Application.CommandBars(Control Toolbox).Visible = Falsereviewing表示审阅工具Application.CommandBars(Reviewing).Visible = FalseApplication.CommandBars(金山快译).Visible = Falsedispalyformulabar表示编辑栏Application.DisplayFormulaBar = FalseApplication.CommandBars(Visual Basic).Visible = FalseApplication.CommandBars(Web).Visible = FalseApplication.CommandBars(Protection).Visible = FalseApplication.CommandBars(Borders).Visible = FalseApplication.CommandBars(Forms).Visible = FalseApplication.CommandBars(Formula Auditing).Visible = FalseApplication.CommandBars(Watch Window).Visible = Falsepivottable表示数据透视表Application.CommandBars(PivotTable).Visible = Falsechart表示图表Application.CommandBars(Chart).Visible = Falsepicture表示图片Application.CommandBars(Picture).Visible = FalseApplication.CommandBars(Exit Design Mode).Visible = Falseexternal data表示外部数据Application.CommandBars(External Data).Visible = Falseply表示工作表标签Application.CommandBars(Ply).Enabled = FalseFor Each cbar In CommandBars? ? Debug.Print cbar.Name, cbar.NameLocal, cbar.VisibleNextEnd Sub ? ? Private ? Sub ? Test() ? ? ? ? ? ? Dim ? i ? As ? Long ? ? ? ? ? ? Dim ? wordApp ? As ? New ? Word.Application ? ? ? ? ? ? Dim ? CBar ? As ? Office.CommandBar ? ? ? ? ? ? Dim ? CCtl ? As ? Office.CommandBarControl ? ? ? ? ? ? ? ? ? ? ? ? Set ? CBar ? = ? wordApp.CommandBars(27) ? ? Bar ? Index ? ? ? ? ? ? For ? Each ? CCtl ? In ? CBar.Controls ? ? ? ? ? ? ? ? ? ? If ? CCtl.Id ? = ? 2041 ? Or ? CCtl.Id ? = ? 2604 ? Then ? ? 2041 ? Control ? ID ? ? ? ? ? ? ? ? ? ? ? ? ? ? CCtl.Enabled ? = ? False ? ? ? ? ? ? ? ? ? ? end ? if ? ? ? ? ? ? Next ? ? ? ? ? ? ? ? ? ?