EXCEL工作表保护密码破解【会计实务文库首发】.pdf

2017-2018年度会计实操优秀获奖文档首发！EXCEL工作表保护密码破解【2017-2018最新会计实务】【2017-2018年最新会计实务经验总结，如对您有帮助请打赏！不胜感激！】方法:1打开文件2工具-宏-录制新宏-输入名字如:aa3停止录制(这样得到一个空宏)4工具-宏-宏,选 aa,点编辑按钮5删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)6关闭编辑窗口7工具-宏-宏,选 AllInternalPasswords,运行,确定两次,等 2 分钟,再确定.OK,没有密码了!内容如下：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 passwordsConst DBLSPACE As String=vbNewLine&vbNewLineConst AUTHORS As String=DBLSPACE&vbNewLine&_2017-2018年度会计实操优秀获奖文档首发！“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.Dont stuff up crucial formulas“&_“or data.”&DBLSPACE&;“Access and use of some data“&“may be an offense.If in doubt,dont.”Const MSGNOPWORDS1 As String=“There were no passwords on“&_“sheets,or workbook structure or windows.”&AUTHORS&2017-2018年度会计实操优秀获奖文档首发！VERSIONConst MSGNOPWORDS2 As String=“There was no protection to“&_“workbook structure or windows.”&DBLSPACE&_“Proceeding to unprotect sheets.”&AUTHORS&VERSIONConst 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 computers specification.”&DBLSPACE&_“Just be patient!Make me a coffee!”&AUTHORS&VERSIONConst 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&VERSIONConst MSGPWORDFOUND2 As String=“You had a Worksheet“&_“password set.”&DBLSPACE&“The password found was:“2017-2018年度会计实操优秀获奖文档首发！&_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&VERSIONConst MSGONLYONE As String=“Only structure/windows“&;_“protected with the password that was just found.”&_ALLCLEAR&AUTHORS&VERSION&REPBACKDim 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.ProtectContents2017-2018年度会计实操优秀获奖文档首发！Next w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1,vbInformation,HEADERExit SubEnd IfMsgBox MSGTAKETIME,vbInformation,HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2,vbInformation,HEADERElseOn 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)&_2017-2018年度会计实操优秀获奖文档首发！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 IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE,vbInformation,HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In WorksheetsAttempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag=FalseFor Each w1 In Worksheets2017-2018年度会计实操优秀获奖文档首发！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,HEADER2017-2018年度会计实操优秀获奖文档首发！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,vbInformation,HEADEREnd Sub后语点评：会计学作为一门操作性较强的学科、每一笔会计业务处理和会计方法的选择都离不开基本理论的指导。为此，要求我们首先要熟悉基本会计准则，正确理解会计核算的一般原则，并在每一会计业务处理时遵循一般原则的要求。会计学的学习，必须力求总结和应用相关技巧，使之更加便于理解和掌握。学习时应充分利用知识的关联性，通过分析实质，找出核心要点。要深入2017-2018年度会计实操优秀获奖文档首发！钻研，过细咀嚼，独立思考，切忌囫囵吞枣，人云亦云，随波逐流，粗枝大叶，浅尝辄止。谢谢打赏支持希望本文章对您有所帮助！2018.06.10-2019.12.12