[求助] excel 批量删除密码

是什么密码?是VBA工程密码,还是工作表保护密码,还是文件打开密码?请你说清楚点

版主,怎么没有下文啦,是不是去吃饭了撒,我可是在线等哦,有点急,如果版主看到后,请帮帮我....下午一上班就要交差呀.版主等你回来...............................

请看附件: ETpb6lSL.rar (12.2 KB, 下载次数: 1137)

使用方法:

下载解压后连同你那1500EXCEL文件一起保存到一个新建的文件夹中,点击删除密码按钮,即可删除所有文件密码.

已经测试,完全达到楼主想要的效果,但只能针对楼主规定的三个密码:

1.""(也就是空值,未设密码),

2."address",

3."jme-pmc"

凡是这三种密码都可以自动删除,但如果再有其他密码,得修改程序,否则无法删除密码.

当然可以,但我做的这个程序不是破解密码的程序,仅仅是按事先知道的密码将密码删除

老大,我的还是不能用呀,你可以帮我看看是那个环结出问题了吗,因为这几天一直忙,也没有上线:

Sub Macro1()
'
' Macro1 Macro
' 宏由 user 录制，时间: 2008-6-10
'

'
    ChDir "C:\Documents and Settings\user\桌面\删除密码"
    Workbooks.Open Filename:="C:\Documents and Settings\user\桌面\删除密码\Book1.xls"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\user\桌面\删除密码\Book1.xls", FileFormat:=xlNormal, _(一定要重新命名)
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub
Sub Macro2()
'
' Macro2 Macro
' 宏由 user 录制，时间: 2008-6-10
'

'
    Windows("Book1.xls").Activate
    ActiveWindow.Close
End Sub

Sub Macro1()
'
' Macro1 Macro
' 宏由 user 录制，时间: 2008-6-10
'

'
    ChDir "C:\Documents and Settings\user\桌面\删除密码"
    Workbooks.Open Filename:="C:\Documents and Settings\user\桌面\删除密码\Book1.xls"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\user\桌面\删除密码\Book1.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub
Sub Macro2()
'
' Macro2 Macro
' 宏由 user 录制，时间: 2008-6-10
'

'
    Windows("Book1.xls").Activate
    ActiveWindow.Close
End Sub
可否帮我解释下呢?

拜托啦................