您当前所在位置：首页 > 系统教程 > office应用教程
“系统教程”所有分类
系统安装优化教程排行
- 1现在都怎么找种子？有影片番号怎样找bt种子下载
- 2在Windows 10上未检测到Nvidia图形卡[简易解决方案]
- 3win10蓝牙声音断断续续卡顿解决方法
- 4已解决：Windows10中的PFN LIST CORRUPT蓝屏错误
- 5win8.1安装密钥和激活密钥64位专业版激活码大全
- 6win10产品密钥:Win10专业版激活码2019
- 7修复Windows 10下更新KB5006670打印机错误 0x00000709、0x0000011b
- 8已解决：Windows10 20H2版本的功能更新安装失败
- 9Win10哪个版本最流畅！游戏玩家首选win10专业版
- 10最新windows7永久激活码 win7旗舰版密钥 win7通用序列号
最新windows系统下载
excel密码完全记不起来了如何破解excel密码
时间：2020-04-26 08:53:17 来源：系统堂 游览量： 次
Else
On Error Resume Next
Do 'dummy do loop
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
With ActiveWorkbook
.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 .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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
.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 Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(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
依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,执行,确定两次
前面输入的宏名 变成了AllInternalPasswords 点击执行 会出现如下对话框 点确定
一直点 确定 直到不在 出现对话框为止。
等待一段之间之后 系统会 再次跳出对话框 再点确定 保护就破解成功了。
以上便是excel有密码如何破解的介绍了，下次请用户在设置Excel密码的时候尽可能的简单一些，并记录下密码备份，避免再次需要使用宏。