（1）打开Excel工作表，点击工作表左上角的微软图案标志。选择Excel选项。进入选项卡，选择Excel选项。在Excel选项卡左侧选择如下功能：

A-查看宏；

B-录制宏；

C-查看权限

D-无限制的访问

E-限制访问

F-权限限制

（2）选择信任中心选项卡。进入信任中心选项卡后，选择点击信任中心设置按钮。选择宏设置选项卡的第二项单项选择：禁止所有宏，并发出通知。

（3）新建工作表，选择录制宏命令。如果是Excel2007，可以通过菜单中的开发工具进入录制宏选项卡。建立宏名称和说明，点击确定。系统开始录制宏。选择停止录制宏。

（4） 按下快捷键ALT+F8组合键，选择查看宏命令代码。写入如下代码：

ASP/Visual Basic Code复制内容到剪贴板 PublicSub工作表保护密码破解() ConstDBLSPACEAsString=vbNewLine&vbNewLine ConstAUTHORSAsString=DBLSPACE&vbNewLine&_ "作者:圣天" ConstHEADERAsString="工作表保护密码破解" ConstVERSIONAsString=DBLSPACE&"版本Version1.1.1" ConstREPBACKAsString=DBLSPACE&"" ConstZHENGLIAsString=DBLSPACE"XXXXXXX" ConstALLCLEARAsString=DBLSPACE&"该工作簿中的工作表密码保护已全部解除!!"&DBLSPACE&"请记得另保存"_ &DBLSPACE&"注意：不要用在不当地方，要尊重他人的劳动成果！" ConstMSGNOPWORDS1AsString="该文件工作表中没有加密" ConstMSGNOPWORDS2AsString="该文件工作表中没有加密2" ConstMSGTAKETIMEAsString="解密需花费一定时间,请耐心等候!"&DBLSPACE&"按确定开始破解!" ConstMSGPWORDFOUND1AsString="密码重新组合为:"&DBLSPACE&"$$"&DBLSPACE&_ "如果该文件工作表有不同密码,将搜索下一组密码并修改清除" ConstMSGPWORDFOUND2AsString="密码重新组合为:"&DBLSPACE&"$$"&DBLSPACE&_ "如果该文件工作表有不同密码,将搜索下一组密码并解除" ConstMSGONLYONEAsString="确保为唯一的?" Dimw1AsWorksheet,w2AsWorksheet DimiAsInteger,jAsInteger,kAsInteger,lAsInteger DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger DimPWord1AsString DimShTagAsBoolean,WinTagAsBoolean Application.ScreenUpdating=False WithActiveWorkbook WinTag=.ProtectStructureOr.ProtectWindows EndWith ShTag=False ForEachw1InWorksheets ShTag=ShTagOrw1.ProtectContents Nextw1 IfNotShTagAndNotWinTagThen MsgBoxMSGNOPWORDS1,vbInformation,HEADER ExitSub EndIf MsgBoxMSGTAKETIME,vbInformation,HEADER IfNotWinTagThen Else OnErrorResumeNext Do&39;dummydoloop Fori=65To66:Forj=65To66:Fork=65To66 Forl=65To66:Form=65To66:Fori1=65To66 Fori2=65To66:Fori3=65To66:Fori4=65To66 Fori5=65To66:Fori6=65To66:Forn=32To126 WithActiveWorkbook .UnprotectChr(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=FalseAnd_ .ProtectWindows=FalseThen PWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_ Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_ Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) MsgBoxApplication.Substitute(MSGPWORDFOUND1,_ "$$",PWord1),vbInformation,HEADER ExitDo&39;Bypassallfor...nexts EndIf EndWith Next:Next:Next:Next:Next:Next Next:Next:Next:Next:Next:Next LoopUntilTrue OnErrorGoTo0 EndIf IfWinTagAndNotShTagThen MsgBoxMSGONLYONE,vbInformation,HEADER ExitSub EndIf OnErrorResumeNext ForEachw1InWorksheets &39;AttemptclearancewithPWord1 w1.UnprotectPWord1 Nextw1 OnErrorGoTo0 ShTag=False ForEachw1InWorksheets &39;ChecksforallclearShTagtriggeredto1ifnot. ShTag=ShTagOrw1.ProtectContents Nextw1 IfShTagThen ForEachw1InWorksheets Withw1 If.ProtectContentsThen OnErrorResumeNext Do&39;Dummydoloop Fori=65To66:Forj=65To66:Fork=65To66 Forl=65To66:Form=65To66:Fori1=65To66 Fori2=65To66:Fori3=65To66:Fori4=65To66 Fori5=65To66:Fori6=65To66:Forn=32To126 .UnprotectChr(i)&Chr(j)&Chr(k)&_ Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_ Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) IfNot.ProtectContentsThen PWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_ Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_ Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) MsgBoxApplication.Substitute(MSGPWORDFOUND2,_ "$$",PWord1),vbInformation,HEADER &39;leveragefindingPwordbytryingonothersheets ForEachw2InWorksheets w2.UnprotectPWord1 Nextw2 ExitDo'Bypassallfor...nexts EndIf Next:Next:Next:Next:Next:Next Next:Next:Next:Next:Next:Next LoopUntilTrue OnErrorGoTo0 EndIf EndWith Nextw1 EndIf MsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK&ZHENGLI,vbInformation,HEADER EndSub

（5）写入代码完成后，保存宏命令。点击执行宏命令，等待一盏茶的时间，工作簿保护密码就“缴械”了。注意记录密码和更改密码，便于后续试用方便。

（6）特别声明：严谨用于违反犯罪行为！