突破EXCEL密码保护的方法
版主留言韋尐旭(2011-1-26 21:12): 代码是原创?但这是我查到的帖子 代码和你的一样?你如何证明是原创?http://hi.baidu.com/ltchn/blog/item/5af16938aaada02997ddd892.html | |
最近做报表的时候发现单位数据库生成的EXCEL表格被密码保护了,要修改里面内容必须输入密码,但是因为格式问题所以,必须要对表格进行修改。于是就研究了如何来突破密码保护,从而获得修改EXCEL表格内容的权限。
具体方法如下:
1、打开被保护的EXCEL表格,新建一个宏。
2、在宏编辑窗口下输入以下代码:
Sub EXECELPASSWORD()
x ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Unprotect
ANS = MsgBox("密码OK", 48, "by flyboy")
End Sub
3、保存宏,并运行
经过测试,该方法有效,顺利了突破了EXCEL设置的密码,对表格进行了修改。
在这里,我把这个方法分享出来,希望能给和我遇到一样困难的朋友以帮助。
[ 本帖最后由 flyboy79 于 2011-1-26 21:30 编辑 ]