破解Excel宏密码
新建文件夹,右击标签,sheet1,选择查看代码,复制一下代码。
Private Sub VBAPassword()'你要解保护的Excel文件路径Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt & *.xmsl),*.xls;*.xla;*.xlt;*.xlsm", , "VBA破解")If Dir(Filename) = "" ThenMsgBox "没找到相关文件,清重新设置。"Exit SubElseFileCopy Filename, Filename & ".bak" '备份文件。End IfDim GetData As String * 5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetDataIf GetData = "CMG=""" Then CMGs = iIf GetData = "[Host" Then DPBo = i - 2: Exit ForNextIf CMGs = 0 ThenMsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"Exit SubEnd IfDim St As String * 2Dim s20 As String * 1'取得一个0D0A十六进制字串Get #1, CMGs - 2, St'取得一个20十六制字串Get #1, DPBo + 16, s20'替换加密部份机码For i = CMGs To DPBo Step 2Put #1, i, StNext'加入不配对符号If (DPBo - CMGs) Mod 2 <> 0 ThenPut #1, DPBo + 1, s20End IfMsgBox "文件解密成功......", 32, "提示"Close #1End Sub
然后按F5,选择需要破解的文件,弹出需要先对VBA....,点击确定,再次按F5,选择需要破解得文件,弹出破解完成。不要关闭先建的表格,打开需要破解的文件,弹出提示,第一次选择禁用宏,叉掉推出,再次打开需要破解的文件,启动宏,此时再关闭,多次打开后,可以看到破解后的信息,不要启动宏,然后操作完成后,不要点击保存文件,方便下一次测试使用。
破解Excel宏密码相关推荐
- 破解Excel保护密码
1 2 3 4 5 6 7 网上有很多这个代码,但很多朋友并不太了解如何运用在此做了一些整理,希望对大家有所帮助! 注:很多时候会因为忘记密码丢失重要EXCEL文件而烦恼,这份代码就能帮你找回,仅仅出 ...
- [转载]如何破解Excel VBA密码
原文链接:http://yhf8377.blog.163.com/blog/static/1768601772012102111032840/ 在此之前,先强调一下,这个方法只是用来破解Excel内部 ...
- 通过宏快速破解EXCEL文件密码
方法: 1\打开文件 2\工具---宏----录制新宏---输入名字如:HACKER 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选HACKER,点编辑按钮 5\删除窗口中的所有字符 ...
- VBA代码助手,代码库收藏管理工具,代码对齐,破解Excel工程密码,设置隐藏模块
历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该 ...
- 如何破解excel打开密码
使用VBA 工程密码破解方法 新建一个excel文档,然后打开,同时按Alt和F11,进入VBA界面 点击菜单上的插入,模块 在新的窗口粘贴以下代码: Sub crack() Dim i As Lon ...
- 如何破解Excel VBA密码
首先,如果文件格式是(.xslm),需要先打开Excel文件,另存为2003版格式(.xls). 然后用普通的文本编辑器(我用的是NotePad++)打开这个文件,注意文件类型选"所有文件& ...
- Excel宏(VBA)密码破解
最近在研究一个Excel宏,想查看VBA代码但是有密码,于是想着能不能移除密码.网上查找一番资料后进行了尝试. 一,准备工具 Excel Hex Editor Neo 二,开始实践 首先将.xlsm后 ...
- Excel如何破解vba的宏密码
工具 WPS.WinRAR(7Zip.360 ZIP国际版 不行).十六进制编辑器 xlsm修改为zip,打开压缩包 xlsm文件另存一份修改为bb.zip,使用压缩软件打开bb.zip,不要关闭压缩 ...
- 破解EXCEL工作表保护密码
原文地址: https://www.mr-wu.cn/crack-excel-workbook-protection/ 其原理是通过Excel的宏功能,利用下边提供的VBA代码,来破解Excel工作表 ...
最新文章
- Exchange企业实战技巧(5)配置OWA域名简写
- Java IO: Buffered和Data
- python爬虫——web前端基础(1)
- python 逻辑回归权重_Python 逻辑回归
- java的css的块_JavaWeb--了解CSS
- vs 2019 aspx灰色_蛇纹当道,豹纹在侧:穿成动物园是2019时尚大势?
- Unity(一)必然事件
- swift 闭包的使用
- C语言的一些知识总结
- According to a report from Bleeping Computer
- 硬盘测试软件di,磁盘检测(Folder Size Professional)
- PostgreSQL如何自动更新时间戳?
- 时差,不同国家之间的大概时差
- 华东理工c语言题库,华东理工大学c语言.doc
- 杭漂多年是时候画个句号呢
- 华为p10android版本,华为P10系列什么时候升级安卓8.0?官方给出答案
- 利用 sqlplus spool 实现oracle 导出 csv 文件
- NetXpert XG解决方案迎接新挑战!
- Nii转png,Nii转dcm,Dcm转png
- 游戏3D建模要做到什么程度才能月薪过万
热门文章
- UV Micro-LED 用于传感、生产和通信的
- [相机原理]单反与手机是如何实现对焦的?——激光对焦的原理
- 招聘季发送简历邮件的格式如何填写?群发邮件如何发送?
- 怎么把实际路径是英文的文件夹显示中文名?
- C++ 编程题/单词倒排,骆驼命名法,查找兄弟单词
- 瑞芯微RK3288(W_Version)ANDROID9.0_ MID_SDK发布说明
- 一个传统的分销+仓储+物流的功能,软件能做些什么让它最快看到成果
- 华为Mate40、华为Mate40Pro、华为Mate40Pro+和华为Mate40RS保时捷值得买吗
- Can you give my Apex Legends a net name
- 合宙esp32+显示屏测试