版主帮忙，怎么解决这个难题----解密代码

欢欢

就是工作簿的打开权限问题
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

是破解？ 有什么用处

欢欢

对阿！元老帮我，先谢谢起

pureshadow

小爪，我这里有个兰版的简易解码，不知能否帮到你：
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