VBA封装成exe求助

jmkite · 发表于 2016-4-16 23:38

本帖最后由 jmkite 于 2016-4-16 23:40 编辑

原贴http://club.excelhome.net/forum.php?mod=viewthread&tid=865902
我按上面贴子做，封装了一下，总提示错误，找来找去都找不到原因。文件如下，有那位高手帮我看看，是什么原因。谢谢！

Test.rar (69.45 KB, 下载次数: 157)

jmkite · 发表于 2016-4-23 00:04

求助,求助。

chlele · 发表于 2016-4-24 17:01

看了一下和Excel相关的只有Test1，请把Test1改成如下试试：

Sub Test1()
Password = Mid(Sn3, 1, 15) & "test"
Password2 = MD5(Password, 32)
If XL.ActiveWorkbook.Cells(2, 2) = Mid(Password2, 1, 18) Then
XL.ActiveWorkbook.Range("A3:A65536").ClearContents
XL.ActiveWorkbook.Range("B3:B65536").ClearContents
MsgBox "成功清除！"
Else
MsgBox "运行密钥错误！"
End If
End Sub

		自动登录	找回密码
密码			免费注册

[求助] VBA封装成exe求助