使用方法: 很简单 ,两种使用方法
第一: 建立一个excel文档, 工具-》宏-》visual basci
将以上代码全部拷贝进去 保存 退出
重新打开那个excel,工具-》宏-》宏 可以看到两个
分别是moveprotect 和 setprotect
解密的话点moveprotect 运行
加密的话就是setprotect 运行
第二: 建立一个excel 打开 ,视图-》工具栏-》visual basic
然后可以在excel里建立连个按钮,caption分别是命名为 加密 解密
将moveprotect中的代码拷贝到 解密 按钮的相应中去
将setprotect中的代码拷贝到 加密 按钮的响应中去
代码:
'去除VBA编码保护
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'设置VBA编码保护
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End Sub
'核心过程调用 无论是加密还是解密都必须经过的过程
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
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 Function
End If
If Protect = False Then
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, "提示"
Else
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", 32, "提示"
End If
Close #1
End Function
分享到:
相关推荐
VBA加密解密器,可以加密码与解密Excel VBA密码。
【软件工具系列-密码破解】 1)用于破解Excel VBA密码工具,如果想看Excel VBA源代码,这个东西不错 2)一直在用,觉得不错,推荐给大家 3)可加密AutoCAD DVB文件
此工具为VBA工程加密解密工具,可以完美对EXCEL VBA工程进行加密或解密,实现代码加密或代码查看,解密时用时较长,请耐心等待。
' 功能: AES加密解密 password<==>hwWpiegaWDeE8kTlb/5BQg== , 8705a989e81a583784f244e56ffe4142 ' [Str] 预备转换的byte ' [StrKey] 16位的密钥 ' [StrIv] 16位的偏移 ' [Encrypt] 加密(缺省值)还是解密 ' ...
VBA加解密工具,秒破VBA工程密码
VB实现DES加密解密算法已测试通过如有更新另行发布
AutoCAD VBA通用破解程序 ... 此程序可破解加密码的VBA文件,也可 破解"工程不可查看"的加密VBA文件。 注意:此程序破解后的VBA文件,请不 要再进行加密,否则无法正常运行!再者, 请不要重复破解!
VBA 工程加密解密器 各种excel 密码破解,你懂的,嘿嘿……
VBA工程加解密工具.exe,可破解微软文档中VBA工程密码
一个字符串加密解密的例子,应用很简单,可以直接使用,欢迎下载。
excel各种加解密vba代码,3des和des加密,验证过的
CAD VBA DVB文件加密和解密 替换 \Program Files\Common Files\Microsoft Shared\VBA\VBA6 下的同名文件.在VBA中提示输入密码时,可输入任何密码。 可以解决所有VBA工程的密码问题
VBA加密解密,特别是解密很有用。忘记密码什么的一下搞定。会自动备份。
Excel-VBA工程加密及解密
加密解密字符串.exe huanyin下载
代码超精华,实用函数实现的加密解密过程,带源码
vb字符串加解密函数,能够加解密所有字符
AES加解密算法软件程序(包含全部模式128/256)AES加解密算法软件程序(包含全部模式128/256)AES加解密算法软件程序(包含全部模式128/256)