ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: atonwang

[求助] 求破删除BVA project 密码

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-12 15:15 | 显示全部楼层
hehex 发表于 2018-6-12 15:03
传了,去下吧。

太感谢了!老师,还有一个2M多,不能上传,可否提供一个邮箱,麻烦你也设置一下。谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-12 16:44 | 显示全部楼层
hehex 发表于 2018-6-12 15:03
传了,去下吧。

老师,我有用网上的代码试着来解,如下代码
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 If
Dim 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
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End If

Dim 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

可是,F5选择文件中,文件类型只支持XLS,XLA,XLT,这三种格式。 故无法选择到文件,不知如何才能解开XLSB格式的。

如果您方便,请告知方法。 如果不方便,是否可以我把文件发你,麻烦您帮忙清除一下,请提供一个邮箱我发您!

以上,感谢您!

TA的精华主题

TA的得分主题

发表于 2018-6-13 10:33 | 显示全部楼层
atonwang 发表于 2018-6-12 16:44
老师,我有用网上的代码试着来解,如下代码
Private Sub VBAPassword() '你要解保护的Excel文件路径
Fi ...

先把xlsb 文件另存为.xls 的副本,再用这个代码试试。
俺没用过这个代码不知道好用不好用

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-6-13 10:46 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-15 10:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
hehex 发表于 2018-6-13 10:33
先把xlsb 文件另存为.xls 的副本,再用这个代码试试。
俺没用过这个代码不知道好用不好用

另存后,这个代码可以用。谢谢老师!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-15 15:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
hehex 发表于 2018-6-13 10:33
先把xlsb 文件另存为.xls 的副本,再用这个代码试试。
俺没用过这个代码不知道好用不好用

老师,目前2M以上的文件是打开了,由于从XLSB另存为XLS时,公式可能影响到,文件不能正常使用。

实在没办法,希望得到老师的帮助。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-25 15:22 , Processed in 0.040534 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表