这个问题困扰我很久了，密码忘了，一分钟出来十次，不知道该怎么办了，请大神们帮帮忙看一下吧，谢谢了。_百度知道您所在的位置： &
EXCEL忘记密码怎么办？EXCEL工作表怎么清除密码
时间： 17:27:38
编辑：xwgod
来源：下载吧
阅读6495次
　　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了。
分享给朋友：
EXCEL忘记密码怎么办相关教程
EXCEL忘记密码怎么办相关新闻
下载1203次
下载1749次
下载1135次
下载1929次
热门关键字
扫红码得红包5亿红包100%中奖Excel工作表保护密码忘记之解决办法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
Excel工作表保护密码忘记之解决办法
上传于||暂无简介
阅读已结束，如果下载本文需要使用2下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩6页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢我做的Xmind文件密码忘了怎么办？求大神破解_百度知道}