如何给word2013文档撤销加密
由文件菜单设置:1、打开需要加密的Word文档。2、选“文件”的“另存为”,出现“另存为”对话框,在“工具”中选“常规选项”,出现“保存”选项卡。3、分别在“打开权限密码”和“修改权限密码”中输入密码(这两种密码可以相同也可以不同)。4、再次确认“打开权限密码”和“修改权限密码”。按“确定”退出“保存”选项卡。5、文件存盘。
由工具菜单设置:1、打开需要加密的Word文档。2、选“工具”菜单的“选项”命令,出现“选项对话框”。3、在“选项”对话框中选“保存”选项卡。4、分别在“打开权限密码”和“修改权限密码”中输入密码,点“确定”退出。5、将文件保存。
求word2013密码破解方法
首先打开需要破译的文档,如图所示(这里以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) & Chr(i。
word2013 文档密码解锁
1、用Word2013打开需要加密的文档,然后单击“文件”按钮。
2
2、在弹出的菜单中系统已经默认选择了“信息”选项,我们只需要在右侧的“信息”选项面板中单击“保护文档”组中的“用密码进行加密”选项即可。
3
3、此时会弹出一个“加密文档”的对话框,我们在“密码”文本框中输入密码,注意区分大小写,然后单击“确定”按钮。
4
4、现在会跳转到“确认密码”对话框中,大家再次输入密码进行确认,然后单击“确定”按钮。
5
5、返回到Word中,我们看到“保护文档”项已经变成了黄色,而且提醒我们“必须提供密码才能打开此文档”,这就说明我们加密成功了,大家现在单击“关闭”按钮,然后一定要在弹出的Microsoft Word 提示框中单击“保存”按钮,使密码生效。
END
解密方法:
1
当我们再次试图用Word2013打开加密了的文档时,会弹出一个“密码”对话框,我们需要在文本框中输入正确的密码,然后单击“确定”按钮,才能打开该文档。
2
3
END
删除密码的具体做法:
1、我们用上面的方法打开已经加密的文档,然后单击“文件”按钮。
2、此时系统已经自动在弹出的菜单中选择了“信息”选项,我们需要做的就是单击“保护文档”组中的“用密码进行加密”按钮。
3、此时会弹出一个“加密文档”的对话框,其“密码”文本框中本来是有密码的,我们选中它并用退格键删除,然后单击“确定”按钮。OK,我们已经将文档的密码删除掉了,但大家要关闭时记得保存哦。
END
注意事项
注意:大家一定要记住自己加密时输入的密码,因为Word2013不提供找回密码的功能,请大家一定要谨慎!
转载请注明出处51数据库 » word2013去除密码