VBA解析VBAProject 07——隐藏模块
时间:2022-07-28
本文章向大家介绍VBA解析VBAProject 07——隐藏模块,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
模块的隐藏看起来好像好高深,其实原理和前面的清除VBAProject工程密码的原理是一样的,只需要改写PROJECT数据流。
不过需要注意的是,类模块不能隐藏,另外还必需要有一个可见的模块,实现代码:
'隐藏某个模块:在VBA工程窗口无法查看
'ModuleName 模块的名称
'Return 返回出错信息
Function HideModule(ModuleName As String) As String
Dim moduleIndex As Long
moduleIndex = GetModuleIndex(ModuleName)
If moduleIndex = -1 Then
HideModule = "CVBAProject: 在ModuleInfo_中没有找到模块[" & ModuleName & "]"
Exit Function
End If
If ModuleInfo_(moduleIndex).IType = ModuleTypeEnum.ClassModule Then
HideModule = "CVBAProject: 类模块不能隐藏"
Exit Function
End If
Dim ret As String
Dim b() As Byte
ret = cf.GetStream(PrePath & "PROJECT", b)
If VBA.Len(ret) Then
HideModule = ret
Exit Function
End If
Dim strSrc As String
strSrc = VBA.StrConv(b, vbUnicode)
If VBA.InStr(strSrc, "Module=" & ModuleName & vbNewLine) = 0 Then
HideModule = "CVBAProject: 模块[" & ModuleName & "]已隐藏"
Exit Function
End If
strSrc = VBA.Replace(strSrc, "Module=" & ModuleName & vbNewLine, "")
b = VBA.StrConv(strSrc, vbFromUnicode)
ret = cf.ReWriteStream(PrePath & "PROJECT", b)
If VBA.Len(ret) Then
HideModule = ret
Exit Function
End If
End Function
'取消隐藏某个模块
'ModuleName 模块的名称
'Return 返回出错信息
Function UnHideModule(ModuleName As String) As String
Dim moduleIndex As Long
moduleIndex = GetModuleIndex(ModuleName)
If moduleIndex = -1 Then
UnHideModule = "CVBAProject: 在ModuleInfo_中没有找到模块[" & ModuleName & "]"
Exit Function
End If
If ModuleInfo_(moduleIndex).IType = ModuleTypeEnum.ClassModule Then
UnHideModule = "CVBAProject: 类模块不能隐藏"
Exit Function
End If
Dim ret As String
Dim b() As Byte
ret = cf.GetStream(PrePath & "PROJECT", b)
If VBA.Len(ret) Then
UnHideModule = ret
Exit Function
End If
Dim strSrc As String
strSrc = VBA.StrConv(b, vbUnicode)
If VBA.InStr(strSrc, "Module=" & ModuleName & vbNewLine) Then
UnHideModule = "CVBAProject: 模块[" & ModuleName & "]未隐藏"
Exit Function
End If
'HelpFile="" 在这个前面添加 Module=moduleNameODOA
strSrc = VBA.Replace(strSrc, "HelpFile=""""", "Module=" & ModuleName & vbNewLine & "HelpFile=""""")
b = VBA.StrConv(strSrc, vbFromUnicode)
ret = cf.ReWriteStream(PrePath & "PROJECT", b)
If VBA.Len(ret) Then
UnHideModule = ret
Exit Function
End If
End Function
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- 一天一大 lee(组合)难度:中等-Day20200908
- es6学习笔记
- 一天一大 lee(图像渲染)难度:简单-Day20200816
- 一天一大 lee(前 K 个高频元素)难度:中等-Day20200907
- 一天一大 lee(二叉树的层次遍历 II)难度:简单-Day20200906
- 一天一大 lee(第k个排列)难度:中等-Day20200905
- 一天一大 lee(二叉树的所有路径)难度:简单-Day20200904
- 一天一大 lee(N 皇后)难度:困难-Day20200903
- 一天一大 lee(二叉树的中序遍历)难度:中等-Day20200914
- 一天一大 lee(二叉树的层平均值)难度:简单-Day20200912
- 一天一大 lee(组合总和 II)难度:中等-Day20200910
- 一天一大 lee(组合总和 III)难度:中等-Day20200911
- 一天一大 lee(翻转二叉树)难度:简单-Day20200916
- 一天一大 lee(表示数值的字符串)难度:中等-Day20200902
- 一天一大 lee(单词搜索)难度:简单-Day20200913