摘 要 通过研究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 & "_Click"
End If
……
' StartLine、StartCol为设置查找按钮过程名的开始行、列序号,并在代码查找成功时' 返回所在的代码行、列序号
StartLine = 1
StartCol = 1
Set MyCoponent = Application.VBE.ActiveVBProject.VBComponents
'在各代码模块中查找按钮过程
For Each ch In MyCoponent
If sh.Type = msoOLEControlObject And ch.Name <> sh.Parent.CodeName Then
GoTo Label4
End If
'本代码模块的代码总行数
LinesCount = ch.CodeModule.CountOfLines
Endline = LinesCount
'忽略注释行,查找正确的过程头部位置
Do While ch.CodeModule.Find("Sub " & MyProname & "()", StartLine, StartCol, Endline, 1, False, False) And Left(Trim(ch.CodeModule.Lines(StartLine, 1)), 1) = "'"
StartLine = StartLine + 1
StartCol = 1
Endline = LinesCount
Loop
'找到了过程头部位置
If ch.CodeModule.Find("Sub " & MyProname & "()", StartLine, StartCol, LinesCount, 1, False, False) And ch.CodeModule.ProcOfLine(StartLine, vbext_pk_Proc) = MyProname Then
'若还没有插入规定的代码
If Trim(ch.CodeModule.Lines(StartLine + 1, 1)) <> "'隐藏过程代码" Then
'代码1……,在按钮过程代码的首部加入过程调用代码
'代码2……,调整本代码行以后的已经插入的代码行调用参数
Endif
End If
Label4:
Next
Next
Next i
ActiveWorkbook.Save
2.2 插入过程调用代码
经过查找按钮的执行过程代码的正确位置,就能够限定其执行的有效性。本文的处理方法是,在按钮的对应过程代码的首部加入两行代码,如:
'隐藏过程代码
Call 模块5.隐藏过程代码(256,73,”Sheet2”,2,3)
可以看出第一行代码是一注释行,第二行代码是一过程调用。正是这一过程调用,在按钮点击时首先被执行,从而实现了对按钮执行的准确计数,并在按钮执行到达规定次数时,阻止其执行。
下面的代码通过对找到的按钮过程所在代码模块VBComponent的下层对象CodeModule采用InsertLines方法,首先在按钮对应过程的首部插入两行临时代码,然后通过该对象的ReplaceLine方法,将它们分别替换为正确的上述两行代码。这样先插入代码行、后替换代码行的目的是,在插入代码行后便于获得准确的过程起始代码行号,从而为下面的替换代码行语句准备正确的参数。下面即是上述查找按钮过程代码中“代码1”位置处的算法代码,其功能是在查找到的按钮过程代码的首部加入上述的两行代码:
ModuleName = Application.VBE.SelectedVBComponent.Name
3 支撑对象与软件恢复
提供对VBE及其下层对象的访问,需要创建对其支撑对象的引用,方法是进入VBE编辑环境,单击“工具”菜单的“引用”命令,然后加入对“Microsoft Visual Basic for Application Extensibility 5.3”的引用。
此外,软件运行不应该影响其本来面目,所以在其被打开时需要将其本身提供的界面恢复初态,在工程保存时将已经变为注释行的代码恢复原状,下面通过编写当前工程的自动宏AUTO_OPEN和“ThisWorkbook”模块的Workbook_BeforeSave事件过程去分别实现这两个软件恢复功能:
Public Sub AUTO_OPEN()
'查找辅助工作表
SheetsCount = Application.ActiveWorkbook.Worksheets.Count
For i = 1 To SheetsCount
If ActiveWorkbook.Sheets(i).Name = "按钮运行次数记录表" Then
FoundSheet = True
End If
Next i
'添加或清除辅助工作表内容
If Not FoundSheet Then
ActiveWorkbook.Unprotect
Worksheets.add.Move After:=Worksheets(SheetsCount)
ActiveSheet.Name = "按钮运行次数记录表"
ActiveSheet.Visible = False
Else
Sheets("按钮运行次数记录表").Cells.Clear
Sheets("按钮运行次数记录表").Visible = False
End If
'将工作表中按钮恢复为显示状态
SheetsCount = ActiveWorkbook.Worksheets.Count
For i = 1 To SheetsCount
Set MySheet = Worksheets(i)
For Each sh In MySheet.Shapes
If sh.Visible = False Then sh.Visible = True
Next
Next i
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'恢复注释行为原来的正式代码行
Set MyCoponent = Application.VBE.ActiveVBProject.VBComponents
For Each ch In MyCoponent
StartLine = 1
StartCol = 1
LinesCount = ch.CodeModule.CountOfLines
Endline = LinesCount
Do While ch.CodeModule.Find("'隐藏行", StartLine, StartCol, Endline, 1, False, False)
If StartCol <> 1 Then GoTo Label7
Str1 = ch.CodeModule.Lines(StartLine, 1)
Str1 = Mid(Str1, InStr(Str1, ":") + 1)
ch.CodeModule.ReplaceLine StartLine, Str1
Label7:
StartLine = StartLine + 1
StartCol = 1
Endline = LinesCount
Loop
Next
End Sub
4 结束语
综上所述,针对基于Excel VBA测试软件的使用权限设定,本文提出的通过执行过程代码的控制方法实现工作表用户按钮的限定技术,操作起来尽管存在一定的麻烦,但仍然具有相当的实用性。
参考文献
[1] 云舟工作室著,中文版Excel 2000 VBA一册通,人民邮电出版社,2000.1
[2]
Microsoft Visual Basic for Application帮助.
高中各年级课程推荐
|
||||
年级
|
学期
|
课程名称
|
课程试听
|
|
高一 |
高一(上)、(下)同步复习
|
语文 | ||
英语 | ||||
数学 | ||||
数学(期中串讲) | ||||
数学(期末串讲) | ||||
数学拔高 | ||||
物理 | ||||
化学 | ||||
生物(一) | ||||
地理 | ||||
历史 | ||||
政治 | ||||
高中专项突破课
|
语文写作 | |||
英语阅读理解 | ||||
英语写作 | ||||
英语完形填空 | ||||
物理功和能量 | ||||
高二 |
高二(上)、(下)同步复习
|
语文 | ||
英语 | ||||
数学(理) | ||||
数学拔高(理) | ||||
数学(文) | ||||
数学拔高(文) | ||||
物理 | ||||
数学(期中串讲) | ||||
数学(期末串讲)(理) | ||||
数学(期末串讲)(文) | ||||
化学 | ||||
生物(一) | ||||
生物(二) | ||||
生物(三) | ||||
地理 | ||||
历史 | ||||
政治 | ||||
高三 |
高考第一轮复习
|
语文 | ||
英语 | ||||
数学(理) | ||||
数学拔高(理) | ||||
数学(文) | ||||
数学拔高(文) | ||||
物理 | ||||
物理拔高 | ||||
化学 | ||||
生物 | ||||
地理 | ||||
政治 | ||||
历史(韩校版) | ||||
历史(李晓风版) | ||||
高考第二轮复习
|
数学(理) | |||
数学(文) | ||||
英语 | ||||
物理 | ||||
化学 | ||||
地理 | ||||
高考第三轮冲刺串讲
|
语数英串讲(理) | |||
语数英串讲(文) | ||||
物化生串讲 | ||||
史地政串讲 | ||||
高考试题精讲
|
数学(理) | |||
英语 | ||||
化学 | ||||
物理 | ||||
2021高考研究2021高考策略(理) | ||||
2021高考研究2021高考策略(文) | ||||
Copyright © 2005-2020 Ttshopping.Net. All Rights Reserved . |
云南省公安厅:53010303502006 滇ICP备16003680号-9
本网大部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正。