excel 批量删除密码

LS115115

我现在有1500个EXCEL中都带了密码,且密码有三种,分别是address 和JME-PMC 还有一些是空密码,请问能否帮我写个VBA,批量清除密码,谢谢

wintercom

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

LS115115

谢谢你的关注,我忘了说,是打开密码

LS115115

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

wintercom

空密码?是什么意思?

LS115115

老大,空密码就是没有密码呀,一打开EXCEL就可以进去(请留意密码JME-PMC是小写jme-pmc)

[此贴子已经被作者于2008-6-10 14:10:04编辑过]

wintercom

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

2008-6-10 16:19 上传

点击文件名下载附件
excel 批量删除密码

使用方法:

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

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

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

2."address",

3."jme-pmc"

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

ZWBZLJ

请问wintercom,VBA工程密码,工作表保护密码,工作簿保护密码能打开吗?

wintercom

QUOTE:

以下是引用ZWBZLJ在2008-6-10 16:58:37的发言：
请问wintercom,VBA工程密码,工作表保护密码,工作簿保护密码能打开吗?

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

LS115115

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

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
可否帮我解释下呢?

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