一邢一珊
怎么样解除密码我本来是在word2003里设置的密码的,现在用了
方法1：插入文件法 启动WORD，新建一个空白文档，执行“插入——〉文件”命令，打开“插入文件”对话框，定位到需要解除保护的文档所在的文件夹，选中相应文档，单击“插入”按钮，将加密保护的文档插入到新文档中，文档保护会被自动撤销。
方法2：文件另存法 打开保护的文档，执行“文件——〉另存为”命令，打开“另存为”对话框，将“文件类型”选定为“WORD97—2003&6.095—RTF(*.DOC)”，然后取名保存，关闭该文档，重新打开一下，执行“工具——〉取消文档保护”命令即可。
或者将文件类型另存为HTML，然后将其中的内容，复制粘贴到新建文档中。
方法3：写字板法 启动写字板，打开保护的WORD文档，另存为WORD文档，同时可以取消对文档的保护。
但此方法可能会使文档中的图片等要素丢失。
方法4：第三方软件法（即一般所说的解密软件） 工作或学习上经常接触office文档的朋友很多会曾遇到过，一些加了密码的文档忘记了密码，那的确是一件非常可怕的事情。
特别是一些比较重要的文档，真会让人崩溃的。
不过呢，话说人类是强大无穷的。
今天为管管给大家介绍的2款小工具，可以在极短的时间内轻松破解Wod、Excel、Access等Office文档的密码... 首先我们介绍一下我们的这两款工具吧。
它们其中一款叫做OfficePasswodRemove，它的特点是破解文档密码的速度非常之快，在5秒之内就能把加了密码的文档破解出来。
另一款工具叫做AdvancedOfficePasswodRecovey，它几乎能破解95—2007版各类Office文档的密码，除了Wod、Excel、Outlook、PowePoint等常见文档格式外，它还能破解Access、Money、Schedule+、Poject、OneNote等等文档。
我们先来看看OfficePasswodRemove吧。
它可以瞬间破解Wod、Excel和Access文档，使用方法非常非常简单，只要菜单选择打开需要破解的文档即可以破解。
而AdvancedOfficePasswodRecovey则是使用暴力破解的方式，速度上比OfficePasswodRemove慢很多，但胜在它支持的文档格式够多，建议当OfficePasswodRemove破解失效的时候再使用它。
它的使用方法就稍微复杂点了，需要设置的项目也很多。
但现在总算已经有汉化版了，应该使用上也不会有什么问题的，我就不多说了，大家看图吧。
如果你经常接触Office文档，即使平时不需要，还是推荐你下载回去备用一下。
说不准哪一天真有遇到忘记密码的文档，它们可真会帮你大忙的哦
Word文件怎么可以解除密码？文件加了密,但忘了密码,怎么办？
文档保护密码的破解： http:soft.yesky.comoffice4872105987.shtml 打开密码的破解： http:www.skycn.comsoft12373.html Wod密码破解器 V1.0 通过暴力破解迅速找回wod密码.缺点是如果密码太长，占用资源较多.我的CPU是Athlon XP1800 在winxp下破解一个5位数密码，用了15秒。
以后再也不必为忘了wod密码而烦了。
建议设置密码不要用字母，破解起来太费时了。
请问把Word文件加密以后,如何解除密码的保护？怎么操作？
我觉得短期可能还无法解决这个问题，建议以后的文档不要用这个东西进行保护了。
如何取消Word文档保护密码总结如下，查找〈UnprotectPassword〉。
MS 还没有对这个漏洞提供补丁，工具->保护文档（P）.总结如下，你会看到5BCECF7A的字样（如果你的密码用的是123的话）。
此时，Word文档的密码就被清空了：打开加密文档，另存为网页或XML格式文件，用记事本打开；核对“仅允许在文档中进行此类编辑”->，密码就不用输入了，按个回车即可，使用窗体保护的方式保护文档，直接取消文档保护即可。
在使用Word进行文档保护时..，你就可以自己取消文档保护了，查找“w:UnprotectPassword”：打开加密文档，另存为网页，用记事本打开，查找GH EF CD AB替换为00 00 00 00 关闭保存，此时已经取消密码了。
再用WORD打开文档，用户无法编辑，也无法进行Copy&Paste操作。
但是。
接着我们用UltraEdit32或其他类似的工具打开最初受保护的Word文档，查找7ACFCE5B（注意是倒序，记下离散后的密码，如A1B2C3D4 用UltraEdit32等二进制编辑器打开Word文档，查找D4C3B2A1（倒序，可能需选择“正则表达式”选项），替换为00 00 00 00此时已经取消密码了，打开文档，我们经常会使用到窗体保护（工具->保护文档（P），文件->另存为->选择XML格式，存为一个XML文档，用记事本打开该XML文件，搜索时可能需选择“正则表达式”选项），查找到后.），输入两次密码（我这里选择123作为Word文件密码），这样，用窗体保护最为彻底，该文档就已经被保护起来了。
然后我们来破解它，Word文档的漏洞可以让你用很简单的方法去掉这个密码，我们自己来测试一下： 首先创建一个Word文档；选择“填写窗体”，此时会弹出一个密码框..->，打开刚才创建的Word文档，搜索“w:UnprotectPassword“（引号内的内容，或直接搜索Password），都用8个0来代替，存盘，记下离散后的密码（在两个〈UnprotectPassword〉中间），如AB CD EF GH，用UltraEdit32等二进制编辑器打开word文档 展开
WORD文档里面怎么取消密码,求步骤
首先打开需要破译的文档，如图所示（这里以excel2013为例，word和excel设置都是一样的就不用一 一列举了），点击“视图”，选择右边的“宏” 点击宏后，选择“录制宏”，如图所示 弹出录制宏对话框，修改宏的名字，点击确定 再次点击宏，选择“查看宏”，如图所示 然后在弹出的宏对话框中点击“编辑”，如图所示 在编辑中将所有的字符删除，然后添加如下代码 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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 & VERSIONConst MSGNOPWORDS2 As String = ＂There was no protection to ＂ & _＂workbook structure or windows.＂ & DBLSPACE & _＂Proceeding to unprotect sheets.＂ & AUTHORS & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst MSGONLYONE As String = ＂Only structure / windows ＂ & _＂protected with the password that was just found.＂ & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For 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 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & ...
转载请注明出处51数据库 » word 2013 取消密码
