如何破解excel自定义函数的源代码

创建一个新的Excel工作簿，Alt+F11打开VBA编辑器，创建一个新模块，并复制下面的代码。注意，如果提示变量未定义，只需删除Option Explicit行，该行已通过测试。

移除VBA编码保护。

子移动保护()

将文件名标注为字符串

filename = application . getopen filename(" Excel文件(*。xls & amp；*.xla)，*。xls*.xla”、“VBA破解”)

如果FileName = CStr(False ),则

出口接头

其他

VBAPassword文件名，False

如果…就会结束

末端接头

设置VBA编码保护

子集保护()

将文件名标注为字符串

filename = application . getopen filename(" Excel文件(*。xls & amp；*.xla)，*。xls*.xla”、“VBA破解”)

如果FileName = CStr(False ),则

出口接头

其他

VBAPassword文件名，True

如果…就会结束

末端接头

私有函数VBAPassword(文件名为字符串，可选保护为Boolean = False)

如果目录(文件名)= "，则

退出功能

其他

文件复制文件名，文件名和。".bak "

如果…就会结束

Dim GetData As String * 5

将二进制文件的文件名打开为#1

变暗图像为长

Dim DPBo As Long

对于i = 1到LOF(1)

Get #1，I，GetData

如果GetData = "CMG= " "那么CMGs = i

如果GetData = "[Host "那么DPBo = i - 2: Exit For

然后

如果CMGs = 0，则

MsgBox "请先为VBA编码设置保护密码..."，32，“提示”

退出功能

如果…就会结束

如果Protect = False，则

Dim St As String * 2

将s20显示为字符串* 1

获取0D0A十六进制字符串。

获取#1，CMGs - 2，St

获取一个20的十六进制字符串。

获取#1，DPBo + 16，s20

替换密钥的加密部分

对于i = CMGs到DPBo步骤2

把#1，I，St

然后

添加不成对的符号

if(DPBo-CMGs)Mod 2 & lt；& gt那么0

放#1，DPBo + 1，s20

如果…就会结束

MsgBox "文件解密成功..."，32，“提示”

其他

将彩信显示为字符串* 5

MMs = "DPB= " "

放#1，短信，彩信

MsgBox "文件的特殊加密成功..."，32，“提示”

如果…就会结束

关闭#1

结束功能