清除EXCEL文件工作表中保护方法20161124.docx

工作表保护密码破解 方法: 1\打开文件 2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编辑按钮 5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) 6\关闭编辑窗口 7\工具---宏-----宏,选AllInternalPasswords,执行,确定,显示本工作表保护密码（可以记下）,再点确定,没有密码了! 注：在复制下列文件时，应把需要破解表中的单个表名称与下列破解程序的名称一直，如：Excel表中需破解的表一名称为：“Sheet1”那就许把下列破解程序中所有的“工作表保护密码破解”改为“Sheet1”，或者发过来将表一名称改为“工作表保护密码破解”复制下列文件就不需修改，直接复制执行。 复制内容如下： 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.1Const 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 = 该文件工作表中没有加密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: