vba在限定excel工作表用户按钮中的应用

《vba在限定excel工作表用户按钮中的应用 》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VBA在限定Excel工作表用户按钮中的应用摘　要通过研究VBE及其下层对象的访问方法，本文详细地探讨了按钮过程的代码控制技术，从而实现了Excel测试软件中工作表用户按钮的执行限定。关键词按钮过程VBE下层对象代码限定1引言作为一个优秀的表格处理软件和系统开发平台，Excel拥有许多无可替代的优势。基于Excel环境开发的管理信息系统，具有操作直观性强、开发周期短的特点，因此形成了熟悉Excel操作的广大用户。为了保证开发系统的正常渠道流通及著作者利益，必须保护系统的使用权限，本文通过VBA的开发应用，提出了一种Excel工作表用户按钮的限定方法

2、，以此来完善其系统测试软件的功能。2限定按钮执行及其对应过程代码限定工作表用户按钮的执行包括两个方面的含义，即限定其按钮对象的显示及其指定宏过程代码的有效性，两者结合在一起加以实现，才能起到既展现软件功能，又真正限制其过分执行操作的作用，从而体现对用户软件的测试目的。2.1查找按钮执行过程代码限定按钮对象及其执行代码，首要的问题便是获得其对应的执行代码过程名，并在当前工程的所有代码模块中查找其代码位置。实践表明，按钮对象与图形图像和艺术字体一样，都属于Shape形状对象，它们都有其对应的OnAction属性，代表其被指定的宏过程代码名称。需要指出的

3、是窗体类型按钮对应的宏过程代码一般位于工程的标准模块中，而ActiveX按钮过程代码则位于工作表代码模块中，且其对应的正确执行过程名为其按钮名与相应的事件名的连接串。为了查找某个按钮对应的过程代码，需要对VBE（VisualBasic编辑器）的下层对象VBponents进行搜索。VBponents对象代表VBE编辑器下的各个代码模块VBponent。通过对某一VBponent的下一层对象CodeModule的相关属性的访问，可以获得诸如模块代码总行数等信息，也可以通过其Find方法查找指定内容的代码行。下面即为查找按钮过程、处理按钮过程代码的算法代

4、码。SheetsCount=ActiveySheet=ySheet.ActivateForEachshInMySheet.Shapessh.Visible=Truesh.Select'取得选定对象所对应的过程名MyProname=sh.OnAction'对于ActiveX按钮,则只取得其onClick事件过程名Ifsh.Type=msoOLEControlObjectThenMyProname=sh.Name"_Click"EndIf……'StartLine、StartCol为设置查找按钮过程名的开始行、列序号，并在代码查找成功时'返回所在的代码行

5、、列序号StartLine=1StartCol=1SetMyCoponent=Application.VBE.ActiveVBProject.VBponents'在各代码模块中查找按钮过程ForEachchInMyCoponentIfsh.Type=msoOLEControlObjectAndch.Name<>sh.Parent.CodeNameThenGoToLabel4EndIf'本代码模块的代码总行数LinesCount=ch.CodeModule.CountOfLinesEndline=LinesCount'忽略