有时候需要查看源代码来确认bug的位置,很多年前就用过类似代码,从网络上找来备份一下以备不时之需。

看到CSDN博客(2012)上也有,跟下面的代码完全一致,而且显示是原创。而另外一个CSDN博客(2013)有不同版本,为转载。

Private Sub VBAPassword()
'你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '备份文件。
End IfDim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
NextIf CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End IfDim St As String * 2
Dim s20 As String * 1'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St'取得一个20十六制字串
Get #1, DPBo + 16, s20'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"Close #1
End Sub

移除VBA项目密码的VBA代码相关推荐

  1. 破解xlsm文件的VBA项目密码

    工具 待破解的xlsm文件.Excel2010.Hex Editor 步骤 1.修改.xlsm后缀为.zip 2.使用压缩软件打开,进入xl目录找到vbaProject.bin文件,解压出来 3.使用 ...

  2. 有没有办法破解密码的Excel的VBA项目

    我一直要求更新Excel 2003中的宏,但VBA项目有密码保护,而且似乎还有欠缺,没有人知道密码. 有没有对VBA项目删除或破解口令的方法是什么? 本文地址 :CodeGo.net/60693/  ...

  3. EXCEL vba工程密码破解

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

  4. VBA Project密码解除

    VBA Project密码解除 第一种方法详细步骤参考: 文中使用编辑器可用http://www.ddooo.com/softdown/98140.htm http://www.360doc.com/ ...

  5. EXCEL2013 vba工程密码破解

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

  6. VBA - 封装我们的VBA代码

    Visual Basic for Applications(简称VBA)是新一代标准宏语言,是基于Visual Basic for Windows 发展而来的.VBA 提供了面向对象的程序设计方法,提 ...

  7. 移植VBA项目到OMS系统

    本文通过描述一次完整的移植 VBA 项目( VisualBoyAdvanced ,一款高性能的 GBA 游戏机模拟器)项目进入 OMS 系统,进而了解 OMS 的图形系统的工作原理,希望为在做项目移植 ...

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

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

  9. keil debug如何在watch直接修改变量值_零基础学VBA:什么是VBA?如何编写和运行VBA代码?...

    HI,大家好,我是星光,今天咱们来继续学习VBA.在上一章咱们讲了为什么要学习VBA~VBA还值不值得学~学了还有没有用~零基础学VBA编程01:VBA还能不能学?学了还有没有用? 这一章咱们再来简单 ...

最新文章

  1. Vmo前端数据模型设计
  2. C# winform 捕获全局异常
  3. mysql ha 安装 配置文件_Linux下环境安装配置Rose HA全攻略(图)
  4. 2、使用Spring框架能带来哪些好处
  5. Visual Studio 2019报4996错误的解决办法
  6. 1908元?iPhone SE 3价格大幅下调,网友:这个价格我冲了
  7. 提出问题之后,对于回答问题内容的仔细确认!!!(一个字一个字确认!!)
  8. Atitit SOW项目工作说明书 目录 1. SOW工作说明书(Statement of Work,简称SOW) 1 2. 项目工作范围 1 3. 工作期限和工作量估计 1 4. 交付成果(源码
  9. 计算机硕论题目,硕士论文题目精选(计算机方向)
  10. java动态字段排序_Java利用Stream来实现多字段排序功能
  11. android kmplayer,KMPlayer Pro — 安卓本地影音全能播放器
  12. 大数据经典案例,你知道几个
  13. 揭秘大厂的物联网关键技术
  14. 小米五怎么设置锁屏显示无服务器,小米手机怎么设置锁屏状态下不能关机 - 卡饭网...
  15. SQL SERVER中WITH TIES的用法
  16. 光学:薄透镜成像、景深
  17. 航班查询接口调用介绍
  18. 启示录:了解TOD模式的正确打开方式(一)
  19. 基于正交投影的实时三维人体姿态估计
  20. 小而美的LBS应用龙门阵——成都开发者沙龙

热门文章

  1. 判断IE浏览器版本(IE10+)
  2. 【入门指导】C语言难吗?最难啃的三块硬骨头
  3. 计算机用户年龄段,用户性别、年龄分布_调研中心专项研究-中关村在线
  4. vue项目发布后禁止 favicon.ico 请求
  5. 易语言窗口停靠伸缩功能
  6. Minecraft启动器制作(C++)
  7. 数位云开发者平台:室内定位api接入文档
  8. 数据+AI技术,赋能企业业务和管理流程
  9. 一种简单快速有效的图像暗部增强/亮度均衡算法
  10. 2020年华科CS保研夏令营经历