文件名称:
VB6.0封装EXCEL2010功能区菜单
开发工具:
文件大小: 14kb
下载次数: 0
上传时间: 2012-12-06
详细说明: 大家好,2009年9月份注册以来,在论坛上学到了许多东西,得得许多会员和版主及管理的帮助和关爱,真的很感谢大家,正是因为,正是因为大家都是无私且乐于助人,分享自己的宝贵的技术和心得,且使我对EXCEL充满着激情,在我的脑海里总是浮现: 1. 我是ExcelHome论坛的会员,我很荣幸 2. 工作空余时间我会情不自禁来到ExcelHome之家,看看家,学习一些别人的的心得与帮助一些新会员 3. 那里有太多太多的宝贝,有意外的收获和惊喜(众里寻“她”千百度;踏破铁鞋无觅处,在EH得来全不费功夫) 4. 遇到问题我会在论坛和百度找,再找不到我就会发贴提问。呵呵,这里一定会得到帮助的 正是因为这些,因为大家的无私,所以我也不能自私,呵呵,分享一下打造“自己2010选项卡”,2010选项卡的修改比2003版的菜单修改复杂了,希望能帮到一些对这方面感兴趣的朋友,由于水平够,里面有许多不足,欢迎大家指正 ,呵呵,我八婆了一大堆,进入主题 对于Excel2007和2010,你注意到的第一件事可能就是它新外观,沿用多年的菜单与工具栏的用户界面已被抛弃了,取而代之的是选项卡和功能区的新界面,现在我们一步步来制作一个自己的选项卡(首先申明,有些代码和方法来自ExcelHom e论坛和网络,在这里谢谢这些提供代码的朋友 ,俗话说的好“前人载树,后人乘凉”,并非个人所写) 第一步:在桌面上创建一个名为customUI的文件夹 第二步:步骤2 打开记事本,在其中复制下面的XML代码:文件名为CustomUI.xml,编码为UTF-8 保存到桌面customUI文件夹中 这里解释一下下面这些代码的意思 让所有的选项卡都显示 这个选项卡的位置放在“开始选项卡”前面 在佛山小老鼠工具选项卡下面添加一个组,组名称叫做“加解密” 这些是调用内置的功能,大家要记得是用idMso,如果是自定义的就用id,还要注意区分大 小写,可能有的会员会问,我们怎样知道这些内置控件和功能的名称呢,我这里有一个工作薄,控件列表,也是微软网站提供的 呵呵,其它的就不解释了,有的也解释不清,用广东话说,鸡同鸭讲,有理说不清,意思差不多,不重复了 第四步:在桌面上新建一个启用宏的Excel文件,并命名为MyCustomUI.xlsm。因为在自定义的XML中,包含了产生回调的onAction属性,所以创建的Excel文件需要启用宏。 第五步:在MyCustomUI.xlsm中,按Alt+F11组合键打开VBE,并插入一个标准模块,添加下面的代码供回调使用 Sub 完美(control As IRibbonControl) ActiveWorkbook.FollowHyperlink _ Address:="http://w186845.s25.myverydz.com/forum.php", _ NewWindow:=True End Sub Sub 视频(control As IRibbonControl) ActiveWorkbook.FollowHyperlink _ Address:="http://www.56.com/h48/uv.index.php?user=caomingwumr", _ NewWindow:=True End Sub Sub EH(control As IRibbonControl) ActiveWorkbook.FollowHyperlink _ Address:="http://club.excelhome.net/", _ NewWindow:=True End Sub Sub 解密(control As IRibbonControl) '备注这个代码是采集EH论坛一个前辈的的 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, AllowUsingPivotTables:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False, AllowFiltering:=True, AllowUsingPivotTables:=True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _ False, AllowFiltering:=True, AllowUsingPivotTables:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ True, AllowFiltering:=True, AllowUsingPivotTables:=True ActiveSheet.Unprotect ANS = MsgBox("密码已破解", 48, "佛山小老鼠制作") End Sub Sub 工作表加密(control As IRibbonControl) Dim I As Integer For I = 1 To Sheets.Count Sheets(I).Protect Password:="197698" Next I End Sub 第六步: 关闭工作簿MyCustomUI.xlsm。 第七步: 在MyCustomUI.xlsm图标上单击右键,选择“重命名”,在文件名后添加“.zip”扩展名,使其变为一个压缩文件 第八步: 双击该压缩文件,打开压缩包,将customUI文件夹拖到该压缩包中 第九步: 将压缩包中的_rels文件夹拖至桌面。 第十步:打开桌面中的_rels文件夹,然后用记事本打开其中的.rels文件 第十一步: 在.rels文件的最后一个之前,添加下面的XML: 第十二步: 保存该.rels文件并关闭。 第十三步: 将修改后的_rels文件夹拖回MyCustomUI压缩包中。如果出现提示,则选择是,覆盖原文件。关闭压缩包。 第十四步: 将MyCustomUI.xlsm.zip的.zip扩展名删除。 第十五步:双击MyCustomUI.xlsm文件,打开工作簿,此时在Excel内置选项卡“开始”的前面添加了一个自定义"佛山小老鼠工具"选项卡,如图(添加的选项卡图1) 第十六步:新建个文件夹,取名为EXCEL2010选项卡安装与卸载 第十七步:把MyCustomUI.xlsm工作薄另存为加载宏工作薄,保存类型选择“Excel 加载宏(*.xlam),保存在“EXCEL2010选项卡安装与卸载”文夹里,文件名不变 第十八步:新建一个新的工作薄,保存在“EXCEL2010选项卡安装与卸载”文夹里,保存类型为启用宏的工作薄(*.xlsm),文件名为“2010安装”,在thisworkbook模块里放入以下代码 Private Sub Workbook_Open() AddIns.Add Filename:=ThisWorkbook.Path & "\MycustomUI.xlam" Application.AddIns("MycustomUI").Installed = 1 End Sub,然后点保存,关闭此工作薄 第十九步:新建一个新的工作薄,保存在“EXCEL2010选项卡安装与卸载”文夹里,保存类型为启用宏的工作薄(*.xlsm),文件名为“2010卸载”,在thisworkbook模块里放入以下代码 Private Sub Workbook_Open() On Error Resume Next AddIns("Mycustomui").Installed = False End Sub 然后点保存,关闭此工作薄 第二十步:因为有的用户的宏的安全级别是高,因此在加载宏加载之前要把宏的安全级别设置为低,双击“2010安装工作薄之前”,要双击这个“安装1.bat”文件 呵呵,整个制作过程就结束了,现在我们就可以随心所欲的加载和卸载EXCEL2010版的选项卡,可以打造属于适合自己工作的选项卡。谢谢大家的阅读,希望能帮到有这方面需要的朋友,如有不明白,也可以再贴下提问,如有好的方法,在贴下分享!!!呵呵,完稿了, 有一个现成的做好的附件,补充一下附件里的一个安装方法 安装方法: 第一步:把下载下来的文件夹放到任意一个盘上,双击“安装1.bat” 第二步:2010安装.xlsm工作薄,然后关闭 第三步:打开任意一个2010工作薄,呵呵,大家看看,是否多了一个“佛山小老鼠工具“选项卡 卸载方法:双击”2010卸载工具.xlsm“工作薄 备注(安装后不能删除这个文件夹和这个文件夹里的东西) ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。
- 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
- 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.