Excel2013工作表忘记保护密码的使用方法的简介

正在使用人数

①我们启动Excel2013，打开被保护的工作簿，发现有用的数据无法选择。具体发现，是文档被加密进行保护了。②打开工具栏中的视图工具，选择最右侧的宏，选择其下的录制宏，名字随便取就行。其他不用管，然后选择“确定”。③选择宏下面的“停止录制”。然后选择“查看宏。

小知识：Excel2013工作表忘记保护密码的使用方法

Excel2013工作表忘记保护密码的使用方法

时间:2016-04-30 21:47 来源: 我爱IT技术网编辑:佚名

① 我们启动Excel2013，打开被保护的工作簿，发现有用的数据无法选择。具体发现，是文档被加密进行保护了。

② 打开工具栏中的视图工具，选择最右侧的宏，选择其下的录制宏，名字随便取就行。其他不用管，然后选择“确定”。

Excel2013工作表忘记保护密码的使用方法

③ 选择宏下面的“停止录制”。然后选择“查看宏”，当前宏，进行编辑。

Excel2013工作表忘记保护密码的使用方法

④ 在打开的VB编程窗口下，在右侧的代码输入框中将所有内容用下列代码代替。

=========请复制以下内容=============

Public Sub 工作表保护密码破解()Const DBLSPACE As String=vbNewLine & vbNewLineConst AUTHORS As String=DBLSPACE & vbNewLine & _"作者:McCormick JE McGimpsey "Const HEADER As String="工作表保护密码破解"Const VERSION As String=DBLSPACE & "版本 Version 1.1.1"Const REPBACK As String=DBLSPACE & ""Const ZHENGLI As String=DBLSPACE & " hfhzi3—戊冥整理"Const ALLCLEAR As String=DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _& DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！"Const MSGNOPWORDS1 As String="该文件工作表中没有加密"Const MSGNOPWORDS2 As String="该文件工作表中没有加密2"Const MSGTAKETIME As String="解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"Const MSGPWORDFOUND1 As String="密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"Const MSGPWORDFOUND2 As String="密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _"如果该文件工作表有不同密码,将搜索下一组密码并解除"Const MSGONLYONE As String="确保为唯一的?"Dim 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 BooleanApplication.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 ThenElseOn 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(i4) & Chr(i5) & Chr(i6) & Chr(n)If .ProtectStructure=False And _.ProtectWindows=False ThenPWord1=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, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End If

If WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume Next

For Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag=FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag=ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn 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 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 ThenPWord1=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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADEREnd Sub

=========以下的不要复制=============

复制完成后，不用保存，直接关闭当前编码窗口。

然后，打开宏的“查看宏”。

点击“执行”，然后按照提示点击“开始”就行了，大约几十秒后破解完毕，另存文件即可。

Excel2013工作表忘记保护密码的使用方法

原作者：小john

用户类似问题：

问题1：EXCEL工作表保护密码忘记了，如何撤消工作表保护？

使用密码破解工具；除了专业人士，一般人很难能够使用代码恢复，最普遍的方法是使用密码破解工具将密码破解，然后再使用密码取消工作表保护。但是密码破解工具也不要随便使用，选择安全的软件以及版本有利于保护自身信息安全。 >>详细

问题2：EXCEL里面忘记工作表保护密码怎么办啊救命啊我...

excel工作表密码破解方法容 1\打开文件 2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编辑按钮 5\删除窗口中的所有字符(只有几个),替换为下面的内容:(你复制吧) Option Explicit Public Su... >>详细