8XX 系列--VBA
8XX 系列--VBA
烂笔头技术栈
聪明在于勤奋,天才在于积累!
展开
-
801-03-解锁---VBA工程密码
1. 将要破解的Excle文件关闭,进程结束掉 2. 新建Excle ,打开新增文件的VB界面(如下图) 3. 新增模块后,将下面代码复制到模块中Private Sub VBAPassword() '你要解保护的Excel文件路径Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename...原创 2020-06-13 16:55:52 · 828 阅读 · 0 评论 -
801-02-解锁---工作表保护密码
1.打开要破解工作表文件 2.录制宏,把他创建在“个人宏工作薄” 3. 创建后什么都不用操作,直接停止录制宏 4. 在VB中找到该宏函数 5.将下面代码赋值到程序中 Public Sub 工作表保护密码破解()Const DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _"作者:McCormick JE McGimpsey .原创 2020-06-13 17:05:35 · 378 阅读 · 0 评论 -
801-01-vba 表格保护
If sheetname = "VerificationData" Then rem 解保护 Sheets(sheetname).Protect PassWord:="20200410" End IfIf sheetname = "VerificationData" Then rem 保护 Sheets(sheetname).Un...原创 2020-04-10 15:36:49 · 280 阅读 · 0 评论