实现的功能
01
Parse
'解析VBAProject
'ir 一个实现了IReadWrite接口的类
'Return 返回出错信息
Function Parse(ir As IReadWrite) As String
这个函数是基础,只有先执行了这个函数,后面的函数才能正确执行。
02
GetModuleInfo
'类的属性:获取模块信息
Property Get GetModuleInfo() As ModuleInfo()
返回结构体:
Public Type ModuleInfo
SName As String
Offset As Long
IType As Integer
End Type
03
GetModuleCode
'读取某个模块的代码
'ModuleName 模块的名称
'StrCode 返回模块的代码
'Return 返回出错信息
Function GetModuleCode(ModuleName As String, ByRef StrCode As String) As String
04
HideModule、UnHideModule
'隐藏某个模块:在VBA工程窗口无法查看
'ModuleName 模块的名称
'Return 返回出错信息
Function HideModule(ModuleName As String) As String
'取消隐藏某个模块
'ModuleName 模块的名称
'Return 返回出错信息
Function UnHideModule(ModuleName As String) As String
04
UnProtectProject
'清除VBA工程密码'
Return 返回出错信息
Function UnProtectProject() As String