发布网友 发布时间:2022-04-23 01:04
共2个回答
热心网友 时间:2022-05-17 19:30
回答你好,关于你的问题我觉得如果密码是7位数以内的数字,如下操作:同时按键盘的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-05-17 20:48
下载一个office