word 2007密码破解

打开需要破解的excel文档，然后同时按Alt+F11打开VBA编辑器，点击插入-模块，在模块中将以下代码COPY进去，再按F5运行，等待运行完毕，OK，密码没有了。

Option Explicit Public Sub AllInternalPasswords() 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 。

Word2007文档加密了,但是密码忘记了,要怎么破解

你好，这样试试看！！

1、用简单的方法：

首先创建一个word文档，使用窗体保护的方式保护文档，工具->保护文档->Check“仅允许在文档中进行此类编辑”->Choose“填写窗体”，此时会弹出一个密码框，输入2次密码（我这里选择123作为word文件密码），这样，该文档就已经被保护起来了。

然我们来破解它，打开刚才创建的word文档，文件->另存为->选择HTML格式，存为一个HTML文档，用记事本打开该HTML文件，搜索""，你会看到5BCECF7A的字样（如果你的密码是用的123的话）。

接着我们用UltraEdit或其他类似的工具打开最初受保护的Word文档，搜索7ACFCE5B，搜索到后，都用8个0来代替，存盘。

此时的Word文档的密码就被清空了，你就可以自己取消文档保护了，密码就不用输入了，按个回车了事。

用WordKey恢复Word密码

“WordKey”是一款著名的Word密码恢复工具，可以通过“暴力破解”、“字典破解”等方法，快速将Word文档中的密码恢复出来。所以当忘记Word文档密码后，“WordKey”就可以帮上大忙啦！

参考资料：http://www.weste.net/2005/6-14/21340125539.html

找回office文件密码

office是使用最为普遍的办公软件，工作繁忙的你，难免出现各种意外，比如对重要的WORD文档加密后却把密码忘得一干二净，这是最让人恼火和着急的了。

但使用AOPR（全称是Advanced office 2000 password Recovery。下载地址：http://www.skycn.com/soft/4373.html）

软件：Advanced Office XP Password Recovery Pro

http://download.enet.com.cn/html/070532003080401.html

“Advanced Office Password Recovery”，是一个 Microsoft Office 文件的密码恢复工具。支持最新版本 Office 2003 中的所有组件，支持所有语言版本。非常好的，下载地址：

http://www.hanzify.org/index.php?Go=Show::List&ID=8444

就可以把office文档的密码很快找回来。就拿一个DOC文档做个演习。

1、安装上AOPR后，启动它，点击“FileName”右侧的打开文件夹图标，选择需要进行破解的文件。

2、“Type of attack”就使用默认的“Bruteforce attack”，然后是设置密码的长度和组成字符。

3、设置好以后点击工具栏上的“Start recovery”开始破解。稍后（时间长短跟设置的密码长度和组成的复杂度有很大的关系），密码就成功破解了。

AOPR不光可以破解WORD文件，它对EXCEL等OFFICE软件产生的文档密码都可以进行解码，方法也大致一样。

如何为Word 2007文档加密及解密的方法

为Word 2007文档加密及解密的方法

第一种方法，使用2007版本Word打开文件，设置密码进行加密

使用这种加密方法，比较简单。没有借助其他软件，属于加密文件的入门级别，保密性不强。具体的操作步骤如下：

步骤1：安装2007版本Word，打开需要加密的文件，在Office按钮处，单击“准备——加密文档”选项。

步骤2：在弹出的窗口输入密码，之后的复选框确认设置的密码，并按“确认”。

步骤3：回到菜单界面，再次单击Office按钮，点击“保存”选项，再关闭文件即可。

解密的操作步骤1、3与加密的步骤一致。唯一不同点步骤2，在弹出的窗口，将密码去掉，按“确定”按钮即可。

第二种方法，使用第三方文件加密软件，直接进行文件加密。

使用这种方法需要安装一个文件加密软件，加密2007版本的Word文档更加牢固，文件信息安全有保障。我个人比较推荐使用这种加密方法。这里我以免费的护密文件夹加密软件为例。具体的操作步骤如下所示：

步骤1：首先在安装护密文件夹加密软件后，需要设置护密软件的开启密码。

步骤2：然后点击左侧的“加密文件”选项，在弹出的窗口处选择需要加密的文件。

步骤3：最后在弹出“输入密码”窗口，填写密码后，可选择保护方式，操作完成后按“确定”。

文件解密的步骤如下所示：

步骤1：打开护密文件夹加密软件，键入该软件的开启密码。

步骤2：操作列表里会显示已加密过的文件，选择要解密的文件，点击右键的“解除”。

步骤3：最后在弹出的窗口处输入加密文件的密码，如果想要打开该文件，请选择“打开”，反之则选择“恢复”，并且单击“确定”按钮。

我的word2007的密码忘记了,怎么办啊

一、解除WORD文档保护

方法一：插入文件法

启动WORD，新建一个空白文档，执行“插入——〉文件”命令，打开“插入文件”对话框，定位到需要解除保护的文档所在的文件夹，选中相应文档，单击“插入”按钮，将加密保护的文档插入到新文档中，文档保护会被自动撤销。

方法二：文件另存法

打开保护的文档，执行“文件——〉另存为”命令，打开“另存为”对话框，将“文件类型”选定为“WORD97—2003&6.0/95—RTF(*.doc)”，然后取名保存，关闭该文档，重新打开一下，执行“工具——〉取消文档保护”命令即可。

或者将文件类型另存为HTML，然后将其中的内容，复制粘贴到新建文档中。

方法三：写字板法

启动写字板，打开保护的WORD文档，另存为WORD文档，同时可以取消对文档的保护。

但此方法可能会使文档中的图片等要素丢失。

方法四：第三方软件法（即一般所说的解密软件）

推荐Passware Kit

希望能帮到你！

能告诉我破解word2007文档打开密码的方法吗？谢谢

密码一般为两种，一个是编辑权限密码，就是你可以打开文档，但只能看，不能改。这种密码一般不需要破解，你另存为网页，把里面的东西复制到一个新文档 ，就可以修改里面的内容了

二、打开密码。这个就是要输入密才能打开。这个密码就要破解了。

如果你的word文档是2003版本的，Office Password Remover这个软件可以帮你破解，2007版本的直接破解就难了~

你要在2007版本里另存为2003版本，然后再破解，Office Password Remover只能2003以下版本有用~2007以上的版本，这个软件直接破解，不行！

求助word文档加锁，忘记密码如何打开？？word文档忘记保存 1.安装上AOPR后，启动它，点击“File Name”右侧的打开文件夹图标，选择需要进行破解的文件。

2.“Type of attack”就使用默认的“Brute-force attack”，然后是设置密码的长度和组成字符。

3.设置好以后点击工具栏上的“Start recovery”开始破解。稍后（时间长短跟设置的密码长度和组成的复杂度有很大关系），密码就成功破解了。

WORD2007解密

工作或学习上经常接触office文档的朋友很多会曾遇到过，一些加了密码的文档忘记了密码，那的确是一件非常可怕的事情。特别是一些比较重要的文档，真会让人崩溃的。不过呢，话说人类是强大无穷的。今天为管管给大家介绍的2款小工具，可以在极短的时间内轻松破解Word、Excel、Access等Office文档的密码。

首先我们介绍一下我们的这两款工具吧。它们其中一款叫做OfficePasswordRemover，它的特点是破解文档密码的速度非常之快，在5秒之内就能把加了密码的文档破解出来。另一款工具叫做AdvancedOfficePasswordRecovery，它几乎能破解95—2007版各类Office文档的密码，除了Word、Excel、Outlook、PowerPoint等常见文档格式外，它还能破解Access、Money、Schedule+、Project、OneNote等等文档。

我们先来看看OfficePasswordRemover吧。它可以瞬间破解Word、Excel和Access文档，使用方法非常非常简单，只要菜单选择打开需要破解的文档即可以破解。

而AdvancedOfficePasswordRecovery则是使用暴力破解的方式，速度上比OfficePasswordRemover慢很多，但胜在它支持的文档格式够多，建议当OfficePasswordRemover破解失效的时候再使用它。它的使用方法就稍微复杂点了，需要设置的项目也很多。但现在总算已经有汉化版了，应该使用上也不会有什么问题的，我就不多说了，大家看图吧。

如果你经常接触Office文档，即使平时不需要，还是推荐你下载回去备用一下。说不准哪一天真有遇到忘记密码的文档，它们可真会帮你大忙的哦

转载请注明出处51数据库 » word2007解密