破解excel保护密码-破解vbaproject密码.docVIP

破解excel保护密码 破解vbaproject密码 破解excel保护密码 破解vbaproject密码 破解vbaproject密码1． 打开带密码的Excel,视图---宏----录制宏---（保存到）“个人宏工作簿”---点“确认”。2． 查看宏----点“编辑”-----进入“Microsofe visual basic-PERSONAL.XLSB”页面；3． 点“模块1“，弹出“模块1代码”----清除“模块1代码”里面的东西-----复制如下东西：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: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With ActiveWorkbook.Unprotect Chr(