翻新时间：2013-12-14
VBA在限定Excel工作表用户按钮中的应用
摘 要 通过研究VBE及其下层对象的访问方法，本文详细地探讨了按钮过程的代码控制技术，从而实现了Excel测试软件中工作表用户按钮的执行限定。
关键词 按钮过程 VBE 下层对象 代码限定
1 引言
作为一个优秀的表格处理软件和系统开发平台，Excel拥有许多无可替代的优势。基于Excel环境开发的管理信息系统，具有操作直观性强、开发周期短的特点，因此形成了熟悉Excel操作的广大用户。为了保证开发系统的正常渠道流通及著作者利益，必须保护系统的使用权限，本文通过VBA的开发应用，提出了一种Excel工作表用户按钮的限定方法，以此来完善其系统测试软件的功能。
2 限定按钮执行及其对应过程代码
限定工作表用户按钮的执行包括两个方面的含义，即限定其按钮对象的显示及其指定宏过程代码的有效性，两者结合在一起加以实现，才能起到既展现软件功能，又真正限制其过分执行操作的作用，从而体现对用户软件的测试目的。
2.1 查找按钮执行过程代码
限定按钮对象及其执行代码，首要的问题便是获得其对应的执行代码过程名，并在当前工程的所有代码模块中查找其代码位置。
实践表明，按钮对象与图形图像和艺术字体一样，都属于Shape形状对象，它们都有其对应的OnAction属性，代表其被指定的宏过程代码名称。需要指出的是窗体类型按钮对应的宏过程代码一般位于工程的标准模块中，而ActiveX按钮过程代码则位于工作表代码模块中，且其对应的正确执行过程名为其按钮名与相应的事件名的连接串。为了查找某个按钮对应的过程代码，需要对VBE（Visual Basic 编辑器）的下层对象VBComponents进行搜索。VBComponents对象代表VBE编辑器下的各个代码模块VBComponent。通过对某一VBComponent的下一层对象CodeModule的相关属性的访问，可以获得诸如模块代码总行数等信息，也可以通过其Find方法查找指定内容的代码行。下面即为查找按钮过程、处理按钮过程代码的算法代码。
SheetsCount = ActiveWorkbook.Worksheets.Count
'对所有工作表中的所有按钮对象循环
For i = 1 To SheetsCount
Set MySheet = Worksheets(i)
MySheet.Activate
For Each sh In MySheet.Shapes
sh.Visible = True
sh.Select
'取得选定对象所对应的过程名
MyProname = sh.OnAction
'对于ActiveX按钮,则只取得其onClick事件过程名
If sh.Type = msoOLEControlObject Then
MyProname = sh.Name
下载文档
网友最新关注
- 美丽的谎言
- 走进音响世界
- 世界上有一种善意的谎言很美
- 有关今生来世的美丽谎言
- 善意的谎言最美
- 母亲这一生中的四个谎言
- 回忆暑假生活
- 养仓鼠
- 甜蜜的善意谎言
- 上帝的“谎言”
- 善意的谎言和讲诚信的辩论会
- 妈妈的谎言
- 走进音响世界
- 蝈蝈历险记
- 回忆暑假生活
- 寝室卫生不合格检讨书
- 给老公的检讨书
- 大学生旷课检讨书
- 抄作业检讨书
- 老师的检讨书
- 班级团支书检讨书
- 英语四级作弊检讨书
- 大学逃课的检讨书
- 学校打架检讨书
- 课堂吵闹检讨书
- 英语三级考试的检讨书
- 违反校纪校规检讨书
- 给老婆的检讨书
- 母亲节给母亲和孩子的检讨书
- 学生检讨书的范文
- 施工员要掌握哪些知识
- 监理单位文件资料的管理
- 对施工员工作的几点要求
- 工作总结经验分享
- 施工质检员个人年终总结
- 工程资料的载体形式
- 地下室工程的隐蔽验收记录的主要项目
- 某项目部监理员年终工作总结
- 见习期施工员个人工作总结
- 阳光房的选材需要注意那些？
- 中国建筑师的历史责任
- 升降脚手方案
- 建筑节地理念在城市化进程中的诠释
- 建筑工程资料的分类与编号
- 测量员个人年终总结
- 《小鹿的玫瑰花》重点问题探究
- 《我家跨上了“信息高速路”》 教案讲义1
- 《找春天》课堂重点:课堂回放 春的追寻
- 《找春天》教学设计（第一课时）
- 《我有两个月亮》
- 《我家跨上了“信息高速路”》 相关介绍
- 《找春天》课外延伸 春的赞歌
- 《月球之谜》 趣闻故事
- 《找春天》教材简说
- 《找春天》课堂重点:拓展交流，强化感受
- 《找春天》教学设计（第二课时）
- 《找春天》扩展练习
- 《找春天》课堂重点:背景描述 春的序曲
- 《找春天》教学建议
- 《找春天》课堂重点：识记生字，积累词语，感情朗读