永发信息网

忘记保护密码,如何撤销EXCEL工作表保护密码?

答案:2  悬赏:50  手机版
解决时间 2021-02-07 13:03
  • 提问者网友:姑娘长的好罪过
  • 2021-02-06 16:51
由于表格很久没有,要做一下数据的修改,但是在撤销工作表保护的时候,需要提供密码。有什么方法能破解EXCEL的保护密码吗?一些网友的方法也都试了,但是无法破解。
最佳答案
  • 五星知识达人网友:天凉才是好个秋
  • 2021-02-06 17:30
用Office Password Remover解密吧,它是可以瞬间破解MS Word和Excel文档文件密码工具。
全部回答
  • 1楼网友:野慌
  • 2021-02-06 18:15

添加模块

sub 破解execl文档的工作表() dim i as integer, j as integer, k as integer dim l as integer, m as integer, n as integer dim i1 as integer, i2 as integer, i3 as integer dim i4 as integer, i5 as integer, i6 as integer on error resume next for i = 65 to 66: for j = 65 to 66: for k = 65 to 66 for l = 65 to 66: for m = 65 to 66: for i1 = 65 to 66 for i2 = 65 to 66: for i3 = 65 to 66: for i4 = 65 to 66 for i5 = 65 to 66: for i6 = 65 to 66: for n = 32 to 126 activesheet.unprotect chr(i) & chr(j) & chr(k) & _ chr(l) & chr(m) & chr(i1) & chr(i2) & chr(i3) & _ chr(i4) & chr(i5) & chr(i6) & chr(n) if activesheet.protectcontents = false then msgbox "one usable password is " & chr(i) & chr(j) & _ chr(k) & chr(l) & chr(m) & chr(i1) & chr(i2) & _ chr(i3) & chr(i4) & chr(i5) & chr(i6) & chr(n) activeworkbook.sheets(1).select range("a1").formular1c1 = chr(i) & chr(j) & _ chr(k) & chr(l) & chr(m) & chr(i1) & chr(i2) & _ chr(i3) & chr(i4) & chr(i5) & chr(i6) & chr(n) exit sub end if next: next: next: next: next: next next: next: next: next: next: next

end sub

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯