新建文件夹,右击标签,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宏密码相关推荐

  1. 破解Excel保护密码

    1 2 3 4 5 6 7 网上有很多这个代码,但很多朋友并不太了解如何运用在此做了一些整理,希望对大家有所帮助! 注:很多时候会因为忘记密码丢失重要EXCEL文件而烦恼,这份代码就能帮你找回,仅仅出 ...

  2. [转载]如何破解Excel VBA密码

    原文链接:http://yhf8377.blog.163.com/blog/static/1768601772012102111032840/ 在此之前,先强调一下,这个方法只是用来破解Excel内部 ...

  3. 通过宏快速破解EXCEL文件密码

    方法: 1\打开文件 2\工具---宏----录制新宏---输入名字如:HACKER 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选HACKER,点编辑按钮 5\删除窗口中的所有字符 ...

  4. VBA代码助手,代码库收藏管理工具,代码对齐,破解Excel工程密码,设置隐藏模块

    历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该 ...

  5. 如何破解excel打开密码

    使用VBA 工程密码破解方法 新建一个excel文档,然后打开,同时按Alt和F11,进入VBA界面 点击菜单上的插入,模块 在新的窗口粘贴以下代码: Sub crack() Dim i As Lon ...

  6. 如何破解Excel VBA密码

    首先,如果文件格式是(.xslm),需要先打开Excel文件,另存为2003版格式(.xls). 然后用普通的文本编辑器(我用的是NotePad++)打开这个文件,注意文件类型选"所有文件& ...

  7. Excel宏(VBA)密码破解

    最近在研究一个Excel宏,想查看VBA代码但是有密码,于是想着能不能移除密码.网上查找一番资料后进行了尝试. 一,准备工具 Excel Hex Editor Neo 二,开始实践 首先将.xlsm后 ...

  8. Excel如何破解vba的宏密码

    工具 WPS.WinRAR(7Zip.360 ZIP国际版 不行).十六进制编辑器 xlsm修改为zip,打开压缩包 xlsm文件另存一份修改为bb.zip,使用压缩软件打开bb.zip,不要关闭压缩 ...

  9. 破解EXCEL工作表保护密码

    原文地址: https://www.mr-wu.cn/crack-excel-workbook-protection/ 其原理是通过Excel的宏功能,利用下边提供的VBA代码,来破解Excel工作表 ...

最新文章

  1. Exchange企业实战技巧(5)配置OWA域名简写
  2. Java IO: Buffered和Data
  3. python爬虫——web前端基础(1)
  4. python 逻辑回归权重_Python 逻辑回归
  5. java的css的块_JavaWeb--了解CSS
  6. vs 2019 aspx灰色_蛇纹当道,豹纹在侧:穿成动物园是2019时尚大势?
  7. Unity(一)必然事件
  8. swift 闭包的使用
  9. C语言的一些知识总结
  10. According to a report from Bleeping Computer
  11. 硬盘测试软件di,磁盘检测(Folder Size Professional)
  12. PostgreSQL如何自动更新时间戳?
  13. 时差,不同国家之间的大概时差
  14. 华东理工c语言题库,华东理工大学c语言.doc
  15. 杭漂多年是时候画个句号呢
  16. 华为p10android版本,华为P10系列什么时候升级安卓8.0?官方给出答案
  17. 利用 sqlplus spool 实现oracle 导出 csv 文件
  18. NetXpert XG解决方案迎接新挑战!
  19. Nii转png,Nii转dcm,Dcm转png
  20. 游戏3D建模要做到什么程度才能月薪过万

热门文章

  1. UV Micro-LED 用于传感、生产和通信的
  2. [相机原理]单反与手机是如何实现对焦的?——激光对焦的原理
  3. 招聘季发送简历邮件的格式如何填写?群发邮件如何发送?
  4. 怎么把实际路径是英文的文件夹显示中文名?
  5. C++ 编程题/单词倒排,骆驼命名法,查找兄弟单词
  6. 瑞芯微RK3288(W_Version)ANDROID9.0_ MID_SDK发布说明
  7. 一个传统的分销+仓储+物流的功能,软件能做些什么让它最快看到成果
  8. 华为Mate40、华为Mate40Pro、华为Mate40Pro+和华为Mate40RS保时捷值得买吗
  9. Can you give my Apex Legends a net name
  10. 合宙esp32+显示屏测试