1. excel密码破解vba

破解vbaproject密码

1．打开带密码的excel,视图---宏----录制宏---（保存到）“个人宏工作簿”---点“确认”。

2．查看宏----点“编辑”-----进入“microsofevisualbasic-personal.xlsb”页面；

3．点“模块1“，弹出“模块1代码”----清除“模块1代码”里面的东西-----复制如下东西：

publicsub工作表保护密码破解()

constdblspaceasstring=vbnewline&vbnewline

constauthorsasstring=dblspace&vbnewline&_

"作者:mccormickjemcgimpsey"

constheaderasstring="工作表保护密码破解"

constversionasstring=dblspace&"版本version1.1.1"

constrepbackasstring=dblspace&""

constzhengliasstring=dblspace&"hfhzi3—戊冥整理"

constallclearasstring=dblspace&"该工作簿中的工作表密码保护已全部解除!!"&dblspace&"请记得另保存"_

&dblspace&"注意：不要用在不当地方，要尊重他人的劳动成果！"

constmsgnopwords1asstring="该文件工作表中没有加密"

constmsgnopwords2asstring="该文件工作表中没有加密2"

constmsgtaketimeasstring="解密需花费一定时间,请耐心等候!"&dblspace&"按确定开始破解!"

constmsgpwordfound1asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_

"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"

constmsgpwordfound2asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_

"如果该文件工作表有不同密码,将搜索下一组密码并解除"

constmsgonlyoneasstring="确保为唯一的?"

dimw1asworksheet,w2asworksheet

dimiasinteger,jasinteger,kasinteger,lasinteger

dimmasinteger,nasinteger,i1asinteger,i2asinteger

dimi3asinteger,i4asinteger,i5asinteger,i6asinteger

dimpword1asstring

dimshtagasboolean,wintagasboolean

application.screenupdating=false

withactiveworkbook

wintag=.protectstructureor.protectwindows

endwith

shtag=false

foreachw1inworksheets

shtag=shtagorw1.protectcontents

nextw1

ifnotshtagandnotwintagthen

msgboxmsgnopwords1,vbinformation,header

exitsub

endif

msgboxmsgtaketime,vbinformation,header

ifnotwintagthen

else

onerrorresumenext

do'dummydoloop

fori=65to66:forj=65to66:fork=65to66

forl=65to66:form=65to66:fori1=65to66

fori2=65to66:fori3=65to66:fori4=65to66

fori5=65to66:fori6=65to66:forn=32to126

withactiveworkbook

.unprotectchr(i)&chr(j)&chr(k)&_

chr(l)&chr(m)&chr(i1)&chr(i2)&_

chr(i3)&chr(i4)&chr(i5)&chr(i6)&chr(n)

if.protectstructure=falseand_

.protectwindows=falsethen

pword1=chr(i)&chr(j)&chr(k)&chr(l)&_

chr(m)&chr(i1)&chr(i2)&chr(i3)&_

chr(i4)&chr(i5)&chr(i6)&chr(n)

msgboxapplication.substitute(msgpwordfound1,_

"$$",pword1),vbinformation,header

exitdo'bypassallfor...nexts

endif

endwith

next:next:next:next:next:next

next:next:next:next:next:next

loopuntiltrue

onerrorgoto0

endif

ifwintagandnotshtagthen

msgboxmsgonlyone,vbinformation,header

exitsub

endif

onerrorresumenext

foreachw1inworksheets

'attemptclearancewithpword1

w1.unprotectpword1

nextw1

onerrorgoto0

shtag=false

foreachw1inworksheets

'checksforallclearshtagtriggeredto1ifnot.

shtag=shtagorw1.protectcontents

nextw1

ifshtagthen

foreachw1inworksheets

withw1

if.protectcontentsthen

onerrorresumenext

do'dummydoloop

fori=65to66:forj=65to66:fork=65to66

forl=65to66:form=65to66:fori1=65to66

fori2=65to66:fori3=65to66:fori4=65to66

fori5=65to66:fori6=65to66:forn=32to126

.unprotectchr(i)&chr(j)&chr(k)&_

chr(l)&chr(m)&chr(i1)&chr(i2)&chr(i3)&_

chr(i4)&chr(i5)&chr(i6)&chr(n)

ifnot.protectcontentsthen

pword1=chr(i)&chr(j)&chr(k)&chr(l)&_

chr(m)&chr(i1)&chr(i2)&chr(i3)&_

chr(i4)&chr(i5)&chr(i6)&chr(n)

msgboxapplication.substitute(msgpwordfound2,_

"$$",pword1),vbinformation,header

'leveragefindingpwordbytryingonothersheets

foreachw2inworksheets

w2.unprotectpword1

nextw2

exitdo'bypassallfor...nexts

endif

next:next:next:next:next:next

next:next:next:next:next:next

loopuntiltrue

onerrorgoto0

endif

endwith

nextw1

endif

msgboxallclear&authors&version&repback&zhengli,vbinformation,header

endsub

4．点保存，然后关闭“book1”

5．点运行即可。

2. excel密码破解时显示数据已被破坏

1、准备模拟数据。随意输入一些东西，例如1，2，3，4，5，62、在菜单栏找到“文件/左上角圆形按钮”。

3、点击左边方框的选项。

4、在弹出的“Excel选项”窗口中，点击“保存”按钮，将“保存自动恢复信息时间间隔10分钟”，设置为1分钟。

5、设置好之后，修改下表格中的内容，将字体颜色修改为“橙色”，保存并等待2分钟，然后开始找回原始版本。

6、到设置自动保存时间间隔的地方，找到保存路径，一般地址为“C:\Users\[本机账户名]\AppData\Roaming\Microsoft\Excel\”下边。

可以看到，该文件夹下边，有以当前excel文件名命名的文件夹。

7、进入文件夹，里面可能有一个或者多个保存文档，点击任意文档，即可查看以前的存档文件。

8、双击任意文件打开后，可以看到工具栏下方，有条横条显示是否“还原”，我们根据情况进行还原。

3. excel密码破解VBA

如果知道密码的话，按快捷键ALT+F11.进入VBA界面去删除。如果不知道密码的话，可以用一些工具或者用宏程序去暴力破解。工具我知道的现在EXCEL必备工具箱比较好用

4. 最简单破解excel打开密码

如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开：

新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.xls。然后回到Excel窗口，同时按键盘的Alt和F11，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码

Subcrack()

DimiAsLong

i=1

line2:

OnErrorGoToline1

DoWhileTrue

Workbooks.Open"1.xls",,,,i

Workbooks("1.xls").Close0

MsgBox"Passwordis"&i

ExitSub

Loop

line1:

i=i+1

Resumeline2

EndSub

然后运行此宏（回到Excel窗口，工具，宏，宏，DefineHyperlink，运行）

如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。

若果还有读写密码，且与打开密码一样，将Workbooks.Open"1.xls",,,,i改为Workbooks.Open"1.xls",,,,i,i

5. excel秘密破解

Excel2003版本的确有软件可以破解密码，但OFFICE版本升级到2007以及2010后，原来的破解软件就无法破解了，而且现在的密码破解软件基本都是使用暴力破解法，就是将可能的密码一个一个的尝试过去，所以你设的密码越长、越复杂，就越不可能被破解。

6. excel密码破解安卓

首先我们点击打开这个已经加密的Excel文件，打开时需要正确输入文档密码。输入正确密码后，进入Excel表格页面，点击左上角的【文件】。

接着左侧弹出选项，点击第4个【信息】，在这里我们可以找到取消密码的设置。接着进入信息选项，找到保护工作簿，并点击保护工作簿下方的小三角，点击【用密码进行加密】。最后在加密文档密码下方，我们将已有的密码删除，然后点击文档加密框下方的【确定】即可。

7. excel 打开密码破解

1.打开先前设置过密码的文档，输入密码即可；

2.

点击文件，点击在左边一列中的文档加密会有一个右拉菜单，再点击密码加密；

3.

之后会跳出密码加密的窗口，打开文件密码，再次输入密码和密码提示的输入框中把密码都删除点击应用。

之后会跳出“密码加密”的窗口，在“打开文件密码”，“再次输入密码”和“密码提示”的输入框中把密码都删除了之后，在按“应用”，等再次打开excel表格就不需要输入密码了。

8. excel密码破解:打开密码百度经验

仅适用于xlsx文件1.将xlsx文件后缀名改为rar，转化为压缩文件，解压该文件，找到被加密工作表路径：该解压后的文件\xl\workssheets\具体工作表（sheet1.xml、sheet2.xml、sheet3.xml等）

2.用记事本方式打开工作表（上条xml文件），查找“protection”，将包含该字段的<>全部删除，保存该文件3.选定所有最初解压出的文件，压缩，将该压缩包后缀名改为xlsx，该文件密码保护已消失，可以继续编辑该Excel文件

9. excel密码破解 免费

答：改一个自己能记住的密码。 按忘记密码 用帐号登陆。不能使用别的登录方法吗？

10. excel密码破解工具有用吗

excel文档密码破解方法汇总：借助Excel密码破解工具，Excel密码破解只需几秒钟的事情。

1、AccentOFFICEPasswordRecovery特点：成功破解过的密码都会被记录下来用作下一次破解，破解已经破解过文档不费吹灰之力。

2、OfficePasswordRemover特点：在线秒杀所有采用普通加密方式的“.doc”、“.xls”、“.ppt”文档。缺点：付款才能看到完整的被破解的文档，必须上网才能用。

3、AdvancedOfficePasswordRecovery特点：功能无比强大，如果上面两款都破解不了，这款是最终武器。

4、OfficePasswordUnlocker特点：由于前三款Excel密码破解工具已经够用，这款功能其实也不差，但对笔者而言是凑数用。方法：先用MicrosoftOffice Excel2003（可用金山WPSOffice2012表格代替）创建一个“2003.xls”的普通方式加密Excel文档，然后用OfficePasswordRemover这个在线破解工具来破解，1,2,3，3秒之后，就生产一个已经被成功破解的新Excel文档——2003（DEMO）.xls。破解一个普通加密方式的Excel文档，只需3秒钟！如果真的不信，可以自己测试一下。