新建一个模块,然后复制以下代码,如果出现“文件解密成功”,则表明解密成功


Public Sub VBAPassword()Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename) = "" ThenMsgBox "没找到相关文件,清重新设置。"EndElseFileCopy 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 #1
End Sub

破解vba工程密码——VBA代码相关推荐

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

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

  2. EXCEL2013 vba工程密码破解

    EXCEL vba工程密码破解 这种方法实际是避开VBA工程密码验证,即,骗vba编辑器,该密码输入成功,请求放行. 原理不多说了,先将方法公布: ========================== ...

  3. EXCEL vba工程密码破解

    这里写自定义目录标题 方法一: 方法二: 方法一: 这种方法实际是避开VBA工程密码验证,即骗vba编辑器,该密码输入成功,请求放行. 不管他是破解还是欺骗 能达到我们的目的角开就行 1.新建一个工作 ...

  4. Excel2013破解vba工程密码以及工作表保护密码

    今天从网上学到如何破解vba工程密码以及工作表保护密码,在这里分享一下.  破解vba工程密码:(引用自http://jingyan.baidu.com/article/2009576170cc05c ...

  5. 深入讲解破解Excel Vba工程密码

    Notice:虽然网上好多破解的教程,但是因为EXCEL版本时有更新,很多小白都不知道怎么破解,这边做一个举一反三的教程,做到vba excel工程密码几乎全部可以破解. 这边先给出一遍参考文章: h ...

  6. 忘记CAD VBA工程密码,如何去掉

    http://blog.163.com/mudong@126/blog/static/369751952014026492735/ 一.下载二进制文本编辑器:Hex Editor II(二进制.十六进 ...

  7. Excel VBA工程密码破解程序 (绝对可以破解)

    '新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把Option Explicit行删除即可,经测试已经通过.'移除VBA编码保护 S ...

  8. 如何破解Excel VBA的工程密码

    有时候,我们对自己所设置的 Excel VBA工程密码忘记了,导致不能对 VBA 代码进行修改或修正.此时,可以用本文所述方法进行移除. 破解的原理和方法:MS Excel 文件以压缩格式存储的,如果 ...

  9. 如何破解excel打开密码

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

  10. VBA 工程代码加密混淆器,保护你的宏作品

    个人制作的 VBA 代码加密混淆器,帮你加密你的宏代码,让它不再那么易读.因 VBA 的方便一直以来都喜欢用它写一些小工具,了解多了也就知道这种代码编写的工具完全没有安全性可言,工程密码形同虚设,很容 ...

最新文章

  1. 【题解】Luogu P1533 可怜的狗狗
  2. 洛谷4366——最短路(dijkstra,思维,异或)
  3. document.getElementByTagName()的用法
  4. python os 文件操作 os.rename(src, dst) 方法 os.renames()
  5. HDU - 1757 A Simple Math Problem(矩阵快速幂,水题)
  6. 开始抽时间学习swift
  7. CentOS上搭建Nginx + Mono 运行 asp.net
  8. 自动化测试-selenium启动浏览器
  9. linux下vivado编译卡死,vivado+zedboard之Linux编译
  10. java将pdf,word,excel转成图片
  11. 移动招聘笔试计算机类,安徽移动计算机类笔试经验
  12. python 数字转换为汉字大写
  13. 微信支付分免密支付接口服务如何开通?
  14. java的concurrenthashmap和hashtab
  15. 下载SAPUI5 SDK
  16. confirm 和 alert不显示ip改写
  17. 当代世界顶级彩铅牛人的画作,每一副仿佛照片一样逼真!
  18. 解决特殊字符引起json解析错误--单引号、双引号转义
  19. Java小白入门200例50之Java判断闰年并打印月份对应的天数
  20. android笔记listview item加载动画

热门文章

  1. 【转】基于知识图谱的推荐系统(KGRS)综述
  2. 如何判断 msn 是否在线 [根据msn是否在线动态显示 msn 头像]
  3. micropython透明屏:esp32驱动透明屏幕通过aida64显示硬件信息
  4. 谷歌地球看不了街景_谷歌街景车意外拍到的沙雕动物们……也是意想不到的快乐源泉啊!...
  5. 魔兽怀旧服怎么找不到服务器,魔兽世界怀旧服世界服务器无法连接怎么办
  6. 查看oracle客户端的版本,Oracle客户端版本及位数(Windows系统)查看方法
  7. unity播放视频代码
  8. 快压卸载后,右键打开压缩文件时还是有快压,方案:删除注册表相关项
  9. 日语输入法下载(转)
  10. sciencesoftware科学软件