标题: 版主帮忙,怎么解决这个难题----解密代码 [打印本页] 作者: 欢欢 时间: 2008-1-6 14:26 标题: 版主帮忙,怎么解决这个难题----解密代码 就是工作簿的打开权限问题
Sub 选择工作簿()
Dim Filename
Filename = Application.GetOpenFilename(FileFilter:="Excel文件(*.xla; *.xls),*.xla;*.xls", Title:="选择Excel文档")
If Filename = False Then Exit Sub
Sheet1.Range("a1") = Filename
End Sub
Sub 破解()
Dim Filename As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Filename = Sheet1.Range("a1")
If Filename = "" Then Exit Sub
If Filename = "" Then
MsgBox "您输入的文档路径有误!", "错误"
Exit Sub
End If
On Error Resume Next
[ 本帖最后由 pureshadow 于 2008-1-6 18:53 编辑 ]作者: ui 时间: 2008-1-6 15:23
是破解? 有什么用处作者: 欢欢 时间: 2008-1-6 16:21
对阿!元老帮我,先谢谢起作者: pureshadow 时间: 2008-1-6 18:58
小爪,我这里有个兰版的简易解码,不知能否帮到你:
on error resume next '出现错误继续下一程序
dim ms as string '声明MS变量为字符串型用于提取完整文件路径
dim x as integer '声明X变量为字符串用于测试密码(如扩大密码范围则要改成long)
dim mpath as string '声明MPATH变量为字符串型作为当前活动工作簿的完整路径
ms = application.getopenfilename '自动弹出打开文件对话框
range() = ms '在指定单元格里显示路径和文件名
for x = 1 to 500 '破解范围在1到500之间的密码
range() = x '在指定单元格里显示密码
workbooks.open filename:= ms, password:= x '用数字作为密码逐个打开文件测试
mpath = activeworkbook.path & "\" & activewokbook.name
if mpath like ms then '判断打开的文件路径和从找开对话框中取得的路径是否一致
msgbox "文件已打开"
exit sub
end if
next