本文目录一览：
excel怎么破解密码保护
打开文档后，通过文件菜单中“另存为”，将文档存为rtf格式。保存好文件后，先关掉文档再打开另存的文件，选择工具栏中的“解除文档保护”命令，不用填写密码就可以解除此文件的“文档保护功能”，而且任何信息都不会丢失。用Office Password Remover这个软件可以打开。
使用方法：
首先运行解压好的OPRemove.exe 这个程式，打开程式后能看到中间文本框后面有个类似目录的按钮。
选择后出现下图的画面，点击移除密码。
呆几秒钟后便出现“该文件已被成功破解”，点确定即可，这时候就大功告成了。 在这里要注意的是，破解后的文章名字会有点变化，加了“DEMO”这四个字母，翻译过来就是示范的意思，不必在意，重命名去掉就能了。
被密码保护的pdf怎么破解
PDF Password Recovery（PDF密码移除器）
1、此方法适用于：打开PDF文件后在标题栏的上面会有（已加密）字样
2、打开软件：PDF Password Recovery（PDF密码移除器）
3、将PDF文件直接鼠标拖入软件工作区内，或者单击“添加文件”添加文档也可以。
4、最后单击“解密PDF”
5、、出现“成功”字样即代表密码移除成功。这样就可以用相关软件（adobe acrobat pro）对文档进行编辑了。
怎么破解excel的密码保护
您好，方法
1、我新建一个excel文件（.xlsx格式的）来测试破解过程，其它文件可以参考，但最好要备份原来的文件,设置工作表、工作薄为密码保护，保存后。
2、打开电脑上的压缩软件，然后在菜单里选择打开压缩包，进入excel文件所在的目录，按图2所示，找到excel文件，然后打开,
3、下面介绍一下删除工作薄的密码，如下图红色箭头所指的文件，用内部阅读器打开。
4、搜索，打开搜索界面，搜索“workbookProtection”，如下图所示，把该标签的内容全部删除，
5、保存修改到压缩，
6、下面介绍一下删除工作表的密码，如下图红色箭头所指的文件，用内部阅读器打开,打下面的文件。
7、打开后，搜索“sheetProtection ”，删除整个标签的内容，保存到压缩包。
8、关掉压缩包，重新打开那个测试的excel文件，可以看到密码保护已经没有了。
DOC文件怎么破解密码呢
解除WORD文档保护
方法一：插入文件法
启动WORD，新建一个空白文档，执行“插入——〉文件”命令，打开“插入文件”对话框，定位到需要解除保护的文档所在的文件夹，选中相应文档，单击“插入”按钮，将加密保护的文档插入到新文档中，文档保护会被自动撤销。
方法二：文件另存法
打开保护的文档，执行“文件——〉另存为”命令，打开“另存为”对话框，将“文件类型”选定为“WORD97—20036.0/95—RTF(*.doc)”，然后取名保存，关闭该文档，重新打开一下，执行“工具——〉取消文档保护”命令即可。
或者将文件类型另存为HTML，然后将其中的内容，复制粘贴到新建文档中。
方法三：写字板法
启动写字板，打开保护的WORD文档，另存为WORD文档，同时可以取消对文档的保护。
但此方法可能会使文档中的图片等要素丢失。
Excel 表格被写入密码保护 怎么破解
操作的方法如下：
1、打开受密码保护的工作表。
2、工具---宏----录制新宏---输入名字如:hh。
3、停止录制(这样得到一个空宏)。
4、工具---宏----宏,选hh,点编辑按钮
5、删除窗口中的所有字符,替换为下面的内容:
Option Explicit Public SubAllInternalPasswords() ' Breaks worksheet and workbook structure passwords. BobMcCormick ' probably originator of base code algorithm modified for coverage 'of workbook structure / windows passwords and for multiple passwords ' ' NormanHarker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 byJEM: 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 themicrosoft.public.excel.programming newsgroup." Const ALLCLEAR As String =DBLSPACE "The workbook should " _ "now be free ofall 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 areason. Don't stuff up crucial formulas " _ "or data." DBLSPACE "Access and use of some data " _ "maybe an offense. If in doubt, don't." Const MSGNOPWORDS1 As String ="There were no passwords on " _ "sheets, or workbookstructure or windows." AUTHORS VERSION Const MSGNOPWORDS2 AsString = "There was no protection to " _ "workbookstructure or windows." DBLSPACE _ "Proceeding tounprotect sheets." AUTHORS VERSION Const MSGTAKETIME As String= "After pressing OK button this " _ "will take sometime." 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 VERSIONConst MSGPWORDFOUND1 As String = "You had a Worksheet " _"Structure or Windows Password set." DBLSPACE _ "Thepassword 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 aWorksheet " _ "password set." DBLSPACE "The password found was: " _ DBLSPACE "$$" DBLSPACE "Note it down for potential " _ "futureuse in other workbooks by same person who " _ "set thispassword." DBLSPACE "Now to check and clear " _ "other passwords." AUTHORS VERSION Const MSGONLYONE AsString = "Only structure / windows " _ "protected with thepassword that was just found." _ ALLCLEAR AUTHORS VERSION REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, jAs Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 AsInteger, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 AsInteger Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating= False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows EndWith ShTag = False For Each w1 In Worksheets ShTag = ShTag Orw1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBoxMSGNOPWORDS1, 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 = 65To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: Fori6 = 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 TrueOn 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 'Attemptclearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = FalseFor 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 InWorksheets With w1 If .ProtectContents Then On Error Resume Next Do 'Dummy doloop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: Form = 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 .UnprotectChr(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) MsgBoxApplication.Substitute(MSGPWORDFOUND2, _ "$$", PWord1), vbInformation,HEADER 'leverage finding Pword by trying on other sheets For Each w2 InWorksheets w2.Unprotect PWord1 Next w2 Exit Do 'Bypass all for...nexts End IfNext: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next LoopUntil True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR AUTHORS VERSION REPBACK, vbInformation, HEADER End Sub
6、关闭编辑窗口。
7、工具---宏-----运行，等几分钟，再确定，就没有密码了。