发布网友
发布时间：2022-03-03 09:41
共2个回答
热心网友
时间：2022-03-03 11:10
同时按键盘的Alt和F11，点菜单上的插入，模块，在右边新出来的窗口粘贴一下代码：
Sub crackProtect()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
ActiveWorkbook.Unprotect i
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub
然后按F5运行此宏。
如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。
希望能够帮助到你
提问在运行宏之前要打开一个表格吗
回答是啊
提问随便一个表格都可以吗？
回答不是
提问能不能说的详细一点
回答选中忘记密码的表格，单击鼠标右键，选择“重命名”，将Excel的扩展名修改为“.rar”。
2.
打开压缩包，依次点击“xl”，“worksheets”。
3.
然后把有保护密码的工作表“sheet1.xml”拖出来，将工作表“sheet1.xml”用“写字板”的方式打开文件。
4
在文件里面按“Ctrl+F”查找“protect”，快速找到保护代码并删除。
5 .再把“sheet1.xml”放回压缩包里面，将扩展名改为“.xlsx”。
热心网友
时间：2022-03-03 12:28