本文目录一览：
如何5秒破解excel2007密码
工具---宏----录制新宏
输入name，然后停止录制
工具---宏----name----点编辑按钮
替换字符为以下代码：
Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine vbNewLine
Const AUTHORS As String = DBLSPACE vbNewLine _
"Adapted from Bob McCormick base code by" _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE "Please report failure " _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE "The workbook should " _
"now be free of all password protection, so make sure you:" _
DBLSPACE "SAVE IT NOW!" DBLSPACE "and also" _
DBLSPACE "BACKUP!, BACKUP!!, BACKUP!!!" _
DBLSPACE "Also, remember that the password was " _
"put there for a reason. Don't stuff up crucial formulas " _
"or data." DBLSPACE "Access and use of some data " _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " _
"sheets, or workbook structure or windows." AUTHORS VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " _
"workbook structure or windows." DBLSPACE _
"Proceeding to unprotect sheets." AUTHORS VERSION
Const MSGTAKETIME As String = "After pressing OK button this " _
"will take some time." DBLSPACE "Amount of time " _
"depends on how many different passwords, the " _
"passwords, and your computer's specification." DBLSPACE _
"Just be patient! Make me a coffee!" AUTHORS VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " _
"Structure or Windows Password set." DBLSPACE _
"The password found was: " DBLSPACE "$$" DBLSPACE _
"Note it down for potential future use in other workbooks by " _
"the same person who set this password." DBLSPACE _
"Now to check and clear other passwords." AUTHORS VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " _
"password set." DBLSPACE "The password found was: " _
DBLSPACE "$$" DBLSPACE "Note it down for potential " _
"future use in other workbooks by same person who " _
"set this password." DBLSPACE "Now to check and clear " _
"other passwords." AUTHORS VERSION
Const MSGONLYONE As String = "Only structure / windows " _
"protected with the password that was just found." _
ALLCLEAR AUTHORS VERSION REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
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
工具---宏-----name-----执行-----确定两次-----确定两次
怎样快速破解手机密码
如果您使用的是华为手机，您忘记了锁屏密码无法解锁，请按照以下方法尝试解决：
1.确认是否密码被更改
建议您再仔细回忆一下是否自己修改了密码，或者您有与亲朋好友确认过是否在您未携带手机的时候，手机被其他人修改了锁屏密码；若为混合密码一定要注意区分大小写、下划线等，避免输入错误而无法进入系统。
2.确认是否使用了隐私空间
如果锁屏界面的密码位数或类型变更/未设置过密码，但是屏幕出现锁定，可能是您开启了隐私空间，请输入隐私空间的密码尝试进入系统，如果您忘记了隐私空间的密码，可以通过以下方法操作：
（1）使用指纹进入隐私空间
如果您之前开启隐私空间时关联了指纹，那您可以通过指纹解锁进入隐私空间，进入后将数据复制出来（例如使用隐私空间界面的空间克隆功能），然后删除此隐私空间，重新创建隐私空间即可。
如果您主空间没有设置指纹解锁，将无法在锁屏界面通过指纹快速进入隐私空间。建议您给主空间也设置指纹解锁，或者在设置中搜索隐私空间切换进入隐私空间。
（2）删除隐私空间
如果您之前未在隐私空间中设置密码保护，也未在开启隐私空间时关联指纹。
则需要您删除此隐私空间，因此建议您确认是否被身边的人更改了密码。（删除隐私空间将会删除您隐私空间中的所有数据，请您谨慎操作）。操作如下：
HarmonyOS ：在设置中搜索并进入隐私空间删除隐私空间 四个点删除隐私空间 删除。
EMUI11.0及以下：在设置中搜索并进入隐私空间 三个点 删除隐私空间 删除 。
温馨提醒：输入主空间锁屏密码即可删除隐私空间（不是输入隐私空间密码），然后重新创建隐私空间。
3.请确认是否开启了多用户
如果您所在的锁屏界面为子用户界面，使用主用户密码则无法解锁，建议您切换到主用户后尝试解锁，切换方法：点击多用户头像切换，或者您也可以重启手机，重启后默认为主空间。
4.恢复出厂设置
如果您确认遗忘自己的手机密码，需要解锁，我们可以帮助您将手机强制恢复出厂设置。但是手机中的数据也会被清除，且无法恢复，建议您再回忆一下是否通过云备份或其他方式备份过手机数据。也建议您再仔细回忆一下是否自己设置/修改了密码，或者请您与亲朋好友确认是否在您未携带手机的时候，手机被其他人设置了锁屏密码，如果确定无法回忆起密码，需要进行强制恢复出厂设置，请您按照以下步骤操作：
a. 手机处于关机状态，且不连接USB线，同时按住电源键和音量上键手机震动后稍等5秒，进入Recovery模式。如果您无法进入Recovery模式，请在关机状态下长按电源键，大概5秒后出现开机震动的时候再将音量上键一并长按大概2秒放开，黑屏大概10秒后就会进入Recovery模式。如果您多次尝试还是无法进入Recovery模式，建议您携带购机发票前往华为客户服务中心处理。
温馨提醒：Mate 30 RS、Mate 30 Pro与Mate 30E Pro无实体音量键，在手机开机振动后，连续按电源键5次进入Recovery模式。
b. 通过按音量上下键，选择清除数据，按电源键确认（部分产品支持Recovery触屏操作，可以通过触屏点击进行选择操作）；
c. 通过按音量上下键，选择恢复出厂设置，按电源键确认；
温馨提醒：部分机型恢复出厂设置前需要输入”yes“进行二次确认，您可以根据相关提示完成。
d. 恢复出厂设置完成后，手机会返回Recovery界面，此时请您点击重启设备。
温馨提醒：
如果重启后进入激活界面，这是因为您开启了查找我的手机功能，输入正确的华为帐号密码即可正常进入系统。如果您将华为帐号的密码忘记了，请您点击找回密码尝试找回。如果之前的华为帐号已注销，（由于华为帐号一经注销，所有的数据都会被删除，无法恢复）会导致无法登录华为帐号重新使用手机，建议您携带购机发票前往华为客户服务中心处理。
如果您登录了谷歌帐户，强制恢复出厂设置后开机会要求验证您的帐户密码，请您输入之前登录的账户密码即可正常开机，如果您忘记了谷歌账户密码，请您按照忘记密码步骤恢复您的谷歌帐户详细信息。
怎样破解Word文档密码 5秒完美斩杀
Word是个常用的办公软件，可以用它来编辑工作记录等文档，可是万一把文档加密的密码忘记了，那也不是没有办法的，可以尝试用Advanced Office Password Recovery这款工具来恢复密码，具体步骤如下：
1.AOPR破解密码的操作非常简单，单击“打开文件”按钮打开对话框，在“文件类型”下拉列表中选择“所有支持的文件类型”（或要破解的文件类型），然后找到并选中待破解文件，在此我们选择的是Word文件，单击“打开”立即开始破解密码，主界面窗口下方的“进度指示器”会显示当前的破解进度。
2.一旦AOPR找到了正确的文档密码，就会自动弹出“Word密码恢复”对话框，我们只须单击显示了密码的行右端的按钮，就可以把破解得到的密码复制到剪贴板。
3.接着单击“Word密码恢复”对话框中的“打开”，就可以打开文档的“密码” 对话框，按Ctrl+V将密码粘贴到里面，就可以用破解得到的密码打开文档了。
以上就是用AOPR破解密码的一般步骤，如果你对该软件的使用不熟悉，建议去AOPR中文官网查找教程进行学习，希望帮到你。