当前位置：首页> 正在进行安全检测...

正在进行安全检测...

时间：2023-11-19 03:12:17 下载该word文档

用VBA隐藏Excel2003菜单栏和工具栏作者：未知文章来源：未知点击数：931更新时间：2009-6-87:50:09在Excel2003中，有时需要限制用户的操作，例如当用户打开某个指定的工作簿时，Excel2003菜单栏和工具栏被隐藏起来。而当关闭该工作簿重新打开其他工作簿后，菜单栏和工具栏又恢复正常。用VBA代码可以实现这个目的，步骤如下：1.打开需要屏蔽菜单栏和工具栏的工作簿，按Alt+F11，打开VBA编辑器。2.在“工程”窗口中选择“ThisWorkBook”，在右侧的代码窗口中输入下面的代码：PrivateSubWorkbook_BeforeClose(CancelAsBooleanshowhide(bHide=TrueEndSubPrivateSubWorkbook_Open(showhide(bHide=FalseEndSubSubshowhide(OptionalbHideAsBooleanDimcmbAsCommandBarStaticcolAsNewCollection
IfbHideThenForEachcmbInApplication.CommandBarsIfcmb.Type=msoBarTypeMenuBarOrcmb.Type=msoBarTypeNormalThenIfcmb.VisibleThencmb.Enabled=FalseIfcmb.VisibleThencmb.Visible=Falsecol.Addcmb,cmb.NameEndIfEndIfNextcmbElseIfcolIsNothingOrcol.Count=0ThenForEachcmbInApplication.CommandBarsIfcmb.Type=msoBarTypeMenuBarOrcmb.Type=msoBarTypeNormalThenIfNotcmb.VisibleOrNotcmb.EnabledThencmb.Enabled=TrueIf(Notcmb.VisibleAndcmb.EnabledThencmb.Visible=TrueEndIfEndIfNextcmbElseForEachcmbIncolIfNotcmb.VisibleOrNotcmb.EnabledThen

阅读全文