您所在的位置： &
EXCEL忘记密码怎么办？EXCEL工作表怎么清除密码
时间： 14:15:29
编辑：yangxiaorong
来源：下载吧
阅读61803次
　　EXCEL是最常用的办公制表软件，有时候制作的工作表想为了保护数据，设置了表格保护，但是如果输入密码出错或者密码太久了记不清怎么办?只能用另外的方法来解决EXCEL密码忘记的问题了。　　1、首先打开EXCEL，选择视图，宏，录制新宏，新建一个宏，可以随便取个名字。　　2、先生成一个空的宏　　3、编辑这个宏，选中刚新建的宏后点击编辑按钮　　4、删除窗口所有字符，把下面的内容粘贴进入。一个字母、标点符号都不能少不能错。　　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 passwords　　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 In Worksheets　　'Attempt clearance with PWord1　　w1.Unprotect PWord1　　Next w1　　On Error GoTo 0　　ShTag = False　　For Each w1 In Worksheets　　'Checks for all clear ShTag triggered to 1 if not.　　ShTag = ShTag Or w1.ProtectContents　　Next w1　　If ShTag Then　　For Each w1 In Worksheets　　With w1　　If .ProtectContents Then　　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　　.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 Not .ProtectContents 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(MSGPWORDFOUND2, _　　&$$&, PWord1), vbInformation, HEADER　　'leverage finding Pword by trying on other sheets　　For Each w2 In Worksheets　　w2.Unprotect PWord1　　Next w2　　Exit Do 'Bypass all for...nexts　　End If　　Next: Next: Next: Next: Next: Next　　Next: Next: Next: Next: Next: Next　　Loop Until True　　On Error GoTo 0　　End If　　End With　　Next w1　　End If　　MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation,
HEADER　　End Sub　　5、关闭掉编辑窗口　　6、在宏里选中AllInternalPasswords这个编辑好的宏，执行，并且确定数次，就OK了。
分享给朋友：
热门关键字【 liuxue86.com - 生活百科 】
　　人有的时候忘性比较大，所以会忘记一些东西，比如把自己的手机的开屏密码给忘记了?这个时候我们该怎么办?我们去手机售后去解锁吗?这不失为一个好方法，可是其实也有一些不用去维修就可以自己想方法自力更生，为大家介绍几种解密方法，欢迎阅读。手机密码忘记了怎么办？　　方法一：ADB解锁　　必要条件：USB调试模式为打开状态　　1、手机连接电脑，确定已安装ADB驱动(手机驱动可通过驱动精灵安装)，解压ADB工具包至C盘　　2、打开cmd输入 cd c：\adb(打开adb所在目录)　　3、接着输入adb shell　　4、继续输入cd data\system　　5、输入ls查看data\system中的文件，如果设置了密码会有gesture.key或者password.key　　6、若设置的是图案密码请继续输入命令：rm gesture.key，若设置的是单纯密码请输入命令：rm password.key　　7、输入reboot命令或者手动重启手机生效，或者现在直接滑动解锁，任意密码都可解锁，建议重启。　　方法二：Google账号解锁　　必要条件：被锁机器之前设置、登录了google账号，账号密码已知，且手机可以联网。　　1、随意5次输入密码，系统提示5次输入错误，30秒后重试;　　2、此时解锁界面下方会提示“忘记密码”，点击输入之前设置过的Google账号和密码即可立即解锁。　　方法三：清空数据解锁　　优点：无任何限制条件，适用于没有重要资料的用户。　　1、关机状态下同时按住音量上键+开机键，进入Recovery。　　2、依次选择清空数据-清空用户数据，重启进入系统，此操作只删除用户数据，软件得以保留。　　实测　　1、设置Google账户，在联网情况下验证　　设置Google账户，在解锁界面没有“忘记密码”选项，只有在5次输错后才会提示，点击并输入账号密码，可清除锁屏密码，此时如手机没有联网，则不能登陆解锁。　　如不点击“忘记密码”，连续错误输入20次后，登陆界面自动弹出，此时只有登陆Google账户才能立即解开，重启后仍是此登陆界面，如登陆账户，效果同样是清除了登录密码。　　2、无Google账户情况下测试　　连续输错5次后没有“忘记密码”图标，继续错误输入，直至25次，仍仅提示30S后重新输入。　　与体会　　1、方法一要求打开usb调试，且手机已获得root权限;方法二要求设置了已知的Google账户，且手机可以联网。方法三没有要求，但是是一种暴力解锁。　　相关知识点：usb调试在哪 安卓手机usb调试开关开启方法　　2、定期对重要信息做备份，以防各种意外;设置锁屏密码后关闭USB调试，防止别人用以上方法破解密码窃取个人信息;一定要在本机上设置同步Google账号，同时开启网络。
　　想了解更多生活百科网的资讯，请访问：
本文来源：
精致的男人是什么样的？精致的男人穿什么鞋？出国留学网生活百科栏目小编带你了解精致男人需要的九款鞋，能把这9款鞋穿好的男人，走哪儿都让人心动。精致的男人，实质上就是一个追求生活品位的
文竹是一种备受大家喜爱的植物，对于它的养殖有哪些技巧呢?下面是由出国留学网小编为大家整理的“文竹的养殖技巧”，欢迎大家阅读，仅供大家参考，希望对您有所帮助。更多文章在出国留学网生活
养花卉是很多人都喜欢的，在室内种些花卉，可以美化环境和改善空气。那么在室内哪些花卉最适合养呢?下面是由出国留学网小编为大家整理的“什么花卉最适合在室内养”，欢迎大家阅读，仅供大家参
君子兰叶子参差不齐有哪些原因呢?下面是由出国留学网小编为大家整理的“君子兰叶子参差不齐的原因有哪些”，欢迎大家阅读，仅供大家参考，希望对您有所帮助。更多文章在出国留学网生活百科栏目
很多朋友，喜欢在室内或是室外种些花花草草，因为这样不仅可以美化环境，而且还可以改善空气。然而对于有些花卉来说是有毒的。下面是由出国留学网小编为大家整理的“生活中常见的有毒的花卉有哪酷狗音乐密码忘了怎么办 酷狗密码忘了解决方法_西西软件资讯
西西软件园多重安全检测下载网站、值得信赖的软件下载站！
→ 酷狗音乐密码忘了怎么办 酷狗密码忘了解决方法
类型：影音播放大小：45.4M语言：中文 评分：5.0
音乐密码忘了怎么办？现在很多伙伴使用音乐都会注册账号，使用的软件越多，密码就越多，忘记密码是很正常的事，西西小编在这里分享一下酷狗密码忘了解决方法，不要错过哦！酷狗密码忘了解决方法：1.首先点击我们酷狗软件的登录界面，或者登录酷狗官网的个人中心，点击“忘记密码”选项；2.点击它，系统就会跳转到酷狗官网“找回密码”页面；3.填写好后我们的账号和验证码后会弹出新的页面，如图所示，我们有以下4种方式找回我们的密码，手机号、安全邮箱、密码问题，客服申诉，如果我们直接有设置这些安全信息，就可以通过它们重置我们的密码。（可以登录酷狗音乐个人中心设置安全信息，小伙伴们最好早点设起来哦！）4.如果安全信息我们都没设置，那只有用客服申诉这个方法了。至于申诉具体细节，欢迎点击我们的一条龙服务~酷狗帐号怎么申诉。以上就是西西小编专为大家收集的酷狗音乐密码忘了怎么办？酷狗密码忘了解决方法的相关内容，想了解更多的内容，就来西西看看吧！
12-1412-1412-0712-0112-0112-0112-0112-0112-0112-01
阅读本文后您有什么感想? 已有23人给出评价!
名称大小下载您的位置： >
账户查询密码修改后忘记该怎么办？
来源： 查看次数：
如职工忘记修改后的密码可持本人身份证原件到就近的住房公积金网点（铁路分中心除外）办理密码重置（铁路职工到铁路分中心办理）。
下一篇：没有了}