Office中国论坛/Access中国论坛

标题: 版主帮忙，怎么解决这个难题----解密代码 [打印本页]

作者: 欢欢 时间: 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

Workbooks(Filename).Password = ""
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "嘿嘿，解密成功！"

End Sub

[ 本帖最后由 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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)