忘记保护密码,如何撤销EXCEL工作表保护密码?
- 提问者网友:姑娘长的好罪过
- 2021-02-06 16:51
- 五星知识达人网友:天凉才是好个秋
- 2021-02-06 17:30
- 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