在电脑WORD文档文件中,如果设置了权限密码和修改密码,但是,现...
1.打开需要设置打开密码的文档。
2.单击菜单[文件]—[另存为]命令。
3.在“另存为”对话框中,单击[工具]—选择“常规选项”。
4.在“修改权限密码”框中输入密码,单击[确定]按钮。
5.在[请再键入一遍修改权限密码]框中再次输入该密码,然后单击[确定]按钮。
6.单击[保存]按钮。
在设置了修改权限密码后,再次打开文档时,会出现一个对话框,提示输入修改权限密码,如果不记得密码,则只能以只读的方式打开文档,但是可以将该文档中的内容复制出来。
所以,还是建议设置打开权限密码比较好。
求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) & ...
如何在Word 2010设置、修改及删除文档密码
在 Microsoft Office system 中,您可以使用密码防止其他人打开或修改文档、工作簿和演示文稿。
友情提醒:Microsoft 无法找回忘记的密码。
在Word 2010文档中设置密码若要加密文件和设置打开文件密码,请执行下列操作:1、单击Office按钮,指向准备,然后单击加密文档。
2、在加密文档对话框的密码框中,键入密码,然后单击确定。
可以键入多达 255 个字符。
默认情况下,此功能使用 AES 128 位高级加密。
加密是一种可使您的文件更加安全的标准方法。
3、在确认密码对话框的重新输入密码框中,再次键入密码,然后单击确定。
若要保存密码,请保存文件。
从 Word 文档中删除密码保护1、使用密码打开文档。
2、单击Office 按钮 ,指向准备,然后单击加密文档。
3、在加密文档对话框的密码框中,删除加密密码,然后单击确定。
4、保存文件。
设置修改 Word 文档密码除了设置打开 Word 文档密码之外,您可以设置密码以允许其他人修改文档。
1、单击Office 按钮 ,单击另存为,然后在另存为对话的底部单击工具。
2、在工具菜单上,单击常规选项。
将打开常规选项对话框。
3、在此文档的文件共享选项下方,在修改权限密码框中键入密码。
4、在确认密码框中再次键入密码。
单击确定。
5、单击保存。
注意: 要删除密码,请重复这些说明,然后从修改权限密码框中删除密码。
单击保存。
word2013怎样取消限制编辑
消限制编辑步骤1:将文档另存为网页(html)格式,用记事本或者写字板打开html文件取消限制编辑步骤2:在记事本或写字板中查找(可用快捷键Ctrl+F)“Password”,应能找到这样的的字符串“C782CE28”中间那8个字符(C782CE28)就是密码了(编译过的),将那8个字符删了然后保存取消限制编辑步骤3:用word打开修改过的html文档,这时已经没有密码了,点击状态栏“审阅”——“限制编辑”——“停止保护”,这时可以随意修改了。
别忘了改完记得保存取消限制编辑步骤4:注意WPS和不同的Word的版本状态栏存在偏差,仔细寻找“限制编辑”项
如何修改密码
怎样修改个人资料 方法一、改博客“昵称”等 1、登录新浪自己博客 2、点首页“博客管理” 3、点“BLOG信息设置”, 4、点“个人基本信息”,改“昵称”或“头象” 5、点“BLOG基本信息”,改BLOG名称是或有关设置,最后“确定”。
方法二、改博客圈子“密码”等 1、点首页“我的圈子” 2、点“个人资料”就可以对“头象”“密码”“博客名称” “个人简介”“邀请设置”等进行修改,最后“确定”。
方法三、换图片 将要上传的图片保存在“图片珍藏”,点头象下面的“浏览”,在显示的“图片珍藏”处确定要上传的图片,点“打开”,图片就传上去了,“确定”即可。
如果当时没有更换,是有延迟反应,多等点时间一定会的。
密码怎么修改啊?谢谢!我想修改密码,请指教!
新浪免费邮箱如何更改密码? 1》更改免费邮件的密码可以从两个地方进入: 第一个是进入邮箱后,在左边菜单中点“设置区”,进入“设置区”后,选择“用户密码设置”,输入您的会员代号和旧密码进入会员资料修改的页面,将密码选项修改为新密码后,点“确定”后,如果看到成功页面说明修改成功,修改成功后,请您立即用新密码登陆邮箱一次。
第二个进入的地方是不用进入邮箱,直接进入“会员资料修改”,输入您的会员代号和旧密码进入会员资料修改的页面,将密码选项修改为新密码后,点“确定”后,如果看到成功页面说明修改成功,修改成功后,请您立即用新密码登陆邮箱一次。
转载请注明出处51数据库 » word2013修改密码