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

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

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

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

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

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

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

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