如何破解word07文档密码破解

使用这种加密方法，比较简单。

没有借助其他软件，属于加密文件的入门级别，保密性不强。具体的操作步骤如下： 步骤1：安装2007版本Word，打开需要加密的文件，在Office按钮处，单击“准备——加密文档”选项。

步骤2：在弹出的窗口输入密码，之后的复选框确认设置的密码，并按“确认”。 步骤3：回到菜单界面，再次单击Office按钮，点击“保存”选项，再关闭文件即可。

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

第二种方法，使用第三方文件加密软件，直接进行文件加密。 使用这种方法需要安装一个文件加密软件，加密2007版本的Word文档更加牢固，文件信息安全有保障。

我个人比较推荐使用这种加密方法。这里我以免费的护密文件夹加密软件为例。

具体的操作步骤如下所示： 步骤1：首先在安装护密文件夹加密软件后，需要设置护密软件的开启密码。 步骤2：然后点击左侧的“加密文件”选项，在弹出的窗口处选择需要加密的文件。

步骤3：最后在弹出“输入密码”窗口，填写密码后，可选择保护方式，操作完成后按“确定”。文件解密的步骤如下所示： 步骤1：打开护密文件夹加密软件，键入该软件的开启密码。

步骤2：操作列表里会显示已加密过的文件，选择要解密的文件，点击右键的“解除”。 步骤3：最后在弹出的窗口处输入加密文件的密码，如果想要打开该文件，请选择“打开”，反之则选择“恢复”，并且单击“确定”按钮。

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密码

如果是别人些的word文档加密后你像看的话用字典软件暴力破解。

。只要你肯花时间。

如果是office序列号（office中包含像word等工具软件）的问题的话，只需要找个正版序列号即可。 Office 2007 Pro不是（专业版本序列号，两个）DBXYD-TF477-46YM4-W74MH-6YDQ8KGFVY-7733B-8WCK9-KTG64-BC7D8Office 2007 Enterprise（企业版本序列号，一个）KGFJX-3FQ8M-3FW8V-TJ8JQ-CM938或者下载国内的破解后的office 下载地址： http://www.gougou.com/search?search=office%202007&id=1 下载的这个连接是office2007的一个活动，免费那序列号的，说明很详细：http://article.pchome.net/content-119412.html支持国产的话，建议使用WPS 支持Java的话，建议使用Open Office 上面这俩都是免费的。

以前的序列号版本发错了，你先试试新换的序列号能不能用吧。

word2007打开密码破解

这种情况下常见的问题是你输入密码就错误了，尤其是需要配合大小写切换时，或者利用一些功能键例如shift时，如果按键故障或者不够灵敏，会导致你输入的密码就错了，可以在一个文本文件中尝试按照你之前的方法输入一下密码，看看最终显示的密码对不对，如果不对就说明有按键出问题，同时你也知道了真正输入的密码。

如果上述方法不管用，而你加密的文件又比较重要，那就很麻烦了，因为现在常用软件几乎都无法立即破解2007版本的打开密码，当然你已经知道了密码的规律和大部分密码内容，可以尝试用一些软件暴力破解，多尝试几天也许还有希望，如果数据很重要，又无法自行破解，就只能尝试穷举法，求助于一些付费破解才能短期内破解2007的密码。

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