Excel—“撤销工作表保护密码”的破解并获取原始密码

(i3) &_ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND2, _ "$$", PWord1), vbInformation, HEADER 'leverage finding Pword by trying on other sheets For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do 'Bypass all for...nexts End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub ----------------------------------------------------------------------------------------- 复制到横线以上 6 、关闭编辑窗口; 7 、依次点击菜单栏上的工具---宏----- 宏,选 AllInternalPasswords, 运行, 确定两次; 等一会, 就会出现以下对话框:这就是 Excel 密码对应的原始密码( 此密码和原先设置的密码都能打开此文档。如果是别人的文档, 你又想恢复密码设置, 就可以用此密码进行保护, 他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写): 再点击确定。 Excel 的原始密码就被清除了!!