Excel,遗忘密码后如何撤销工作表保护密码.docVIP

Excel,遗忘密码后如何撤销工作表保护密码 1、打开您需要撤销保护密码的Excel文件； 2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:ab； 3、停止录制(这样得到一个空宏)； 4、依次点击菜单栏上的工具---宏----宏,选ab,点编辑按钮； 5、删除窗口中的所有字符(只有几个),替换为以下内容； ? Public Sub 工作表保护密码()Const DBLSPACE As String = vbNewLine vbNewLineConst AUTHORS As String = DBLSPACE vbNewLine _作者:ericConst HEADER As String = 工作表保护密码Const VERSION As String = DBLSPACE 版本 Version 1.1.1Const REPBACK As String = DBLSPACE Const ZHENGLI As String = DBLSPACE ?????????????????? ericConst ALLCLEAR As String = DBLSPACE 该工作簿中的工作表密码保护已全部解除。 DBLSPACE 请记得重新设置密码 _ DBLSPACE 注意：此方法仅用于遗忘密码使用。Const MSGNOPWORDS1 As String = 该文件工作表中没有加密Const MSGNOPWORDS2 As String = 该文件工作表中没有加密2Const 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