隐藏Excel2003菜单栏和工具栏.doc

《隐藏Excel2003菜单栏和工具栏.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、用VBA隐藏Excel2003菜单栏和工具栏在Excel2003中，有时需要限制用户的操作，例如当用户打开某个指定的工作簿时，Excel2003菜单栏和工具栏被隐藏起来。而当关闭该工作簿重新打开其他工作簿后，菜单栏和工具栏又恢复正常。用VBA代码可以实现这个目的，步骤如下：   1.打开需要屏蔽菜单栏和工具栏的工作簿，按Alt+F11，打开VBA编辑器。   2.在“工程”窗口（视图－工程管理器）中选择“ThisWorkBook”，在右侧的代码窗口中输入下面的代码：PrivateSubWorkbook_BeforeClose(CancelAsBoolean)showhide(bHide

2、=True)EndSubPrivateSubWorkbook_Open()showhide(bHide=False)EndSubSubshowhide(OptionalbHideAsBoolean)DimcmbAsCommandBarStaticcolAsNewCollectionIfbHideThenForEachcmbInApplication.CommandBarsIfcmb.Type=msoBarTypeMenuBarOrcmb.Type=msoBarTypeNormalThenIfcmb.VisibleThencmb.Enabled=FalseIfcmb.VisibleThe

3、ncmb.Visible=Falsecol.Addcmb,cmb.NameEndIfEndIfNextcmbElseIfcolIsNothingOrcol.Count=0ThenForEachcmbInApplication.CommandBarsIfcmb.Type=msoBarTypeMenuBarOrcmb.Type=msoBarTypeNormalThenIfNotcmb.VisibleOrNotcmb.EnabledThencmb.Enabled=TrueIf(Notcmb.Visible)Andcmb.EnabledThencmb.Visible=TrueEndIfEndI

4、fNextcmbElseForEachcmbIncolIfNotcmb.VisibleOrNotcmb.EnabledThencmb.Enabled=TrueIf(Notcmb.Visible)Andcmb.EnabledThencmb.Visible=TrueEndIfNextcmbEndIfSetcol=NothingEndIfEndSub   3.在退出该工作簿前，先要让菜单栏和工具栏隐藏起来，方法是：鼠标在代码PrivateSubWorkbook_Open()showhide(bHide=False)EndSub   中间单击一下，让光标停留在这段代码中间，然后按F5键运行该段

5、代码，这时Excel中的菜单栏和工具栏都将被隐藏。   说明：这一步十分重要，不能省略，如果保存工作簿后不运行该段代码而直接退出，下次打开Excel时，Excel中的所有工具栏都将会显示在界面中。万一出现这种情况，可以用下面的方法让Exce恢复默认的工具栏设置。在WindowsXP中，删除“C:DocumentsandSettings用户名ApplicationDataMicrosoftExcel”文件夹中的“Excel11.xlb”文件，而在WindowsVista中，该文件在“C:用户用户名AppDataRoamingMicrosoftExcel”文件夹中。“

6、Excel11.xlb”文件中保存了Excel2003自定义菜单栏和工具栏设置，删除该文件后Excel将自动恢复默认的菜单栏和工具栏。   这样，当我们打开该工作簿时，菜单栏和工具栏将被隐藏，从而可以限制用户的操作。而退出Excel2003重新打开别的工作簿后，Excel2003菜单栏和工具栏会照常显示。Subhidebar()           Application.CommandBars(1).Enabled=False'隐藏菜单栏   Application.DisplayFullScreen=True'全屏显示   Application.CommandBars("Full

7、Screen").Visible=False       ActiveWindow.DisplayHorizontalScrollBar=False'隐藏滚动条       ActiveWindow.DisplayVerticalScrollBar=FalseEndSubSubunhidebar()   Application.CommandBars(1).Enabled=True   Application.DisplayFullScreen