VBA解析VBAProject 01——实现的功能

实现的功能

01

Parse

代码语言：javascript复制

'解析VBAProject
'ir         一个实现了IReadWrite接口的类
'Return     返回出错信息
Function Parse(ir As IReadWrite) As String

这个函数是基础，只有先执行了这个函数，后面的函数才能正确执行。

02

GetModuleInfo

代码语言：javascript复制

'类的属性：获取模块信息
Property Get GetModuleInfo() As ModuleInfo()

返回结构体：

代码语言：javascript复制

Public Type ModuleInfo
    SName As String
    Offset As Long
    IType As Integer
End Type

03

GetModuleCode

代码语言：javascript复制

'读取某个模块的代码
'ModuleName 模块的名称
'StrCode    返回模块的代码
'Return     返回出错信息
Function GetModuleCode(ModuleName As String, ByRef StrCode As String) As String

04

HideModule、UnHideModule

代码语言：javascript复制

'隐藏某个模块：在VBA工程窗口无法查看
'ModuleName 模块的名称
'Return     返回出错信息
Function HideModule(ModuleName As String) As String

代码语言：javascript复制

'取消隐藏某个模块
'ModuleName 模块的名称
'Return     返回出错信息
Function UnHideModule(ModuleName As String) As String

04

UnProtectProject

代码语言：javascript复制

'清除VBA工程密码'
Return     返回出错信息
Function UnProtectProject() As String

ode 函数 基础

0 人点赞