EXCEL工作表保护密码忘记密码怎么办，快速学起来 操作方法 01：hr新建一个EXCEL工作表，而后点击另存为，讲表格保存为启用宏的工作表 02：hr一次点击开发工具录制新宏，在弹出的对话框内修改宏名称而后确定 03：hr依次点击开发工具停止录制宏，宏录制完成 04：hr依次点击开发工具，宏在弹出的对话框找到我们刚才录制的宏名称而后进入VBA界面 05：hr在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完 06：hr代码复制到VBA编辑窗口内 PublicSubAllInternalPasswords（） Breaksworksheetandworkbookstructurepasswords。BobMcCormick probablyoriginatorofbasecodealgorithmmodifiedforcoverage ofworkbookstructurewindowspasswordsandformultiplepasswords NormanHarkerandJEMcGimpsey27Dec2002（Version1。1） Modified2003Apr04byJEM：Allmsgstoconstants，and eliminateoneExitSub（Version1。1。1） RevealshashedpasswordsNOToriginalpasswords ConstDBLSPACEAsStringvbNewLvbNewLine ConstAUTHORSAsStringDBLSPACEvbNewL AdaptedfromBobMcC NormanHarkerandJEMcGimpsey ConstHEADERAsStringAllInternalPasswordsUserMessage ConstVERSIONAsStringDBLSPACEVersion1。1。12003Apr04 ConstREPBACKAsStringDBLSPACEP tothemicrosoft。public。excel。programmingnewsgroup。 ConstALLCLEARAsStringDBLSPACET nowbefreeofallpasswordprotection，somakesureyou： DBLSPACESAVEITNOW！DBLSPACE DBLSPACEBACKUP！，BACKUP！！，BACKUP！！！ DBLSPACEAlso， putthereforareason。D ordata。DBLSPACEA maybeanoffense。Ifindoubt，dont。 ConstMSGNOPWORDS1AsStringT sheets，orworkbookstructureorwindows。AUTHORSVERSION ConstMSGNOPWORDS2AsStringT workbookstructureorwindows。DBLSPACE Proceedingtounprotectsheets。AUTHORSVERSION ConstMSGTAKETIMEAsStringAfterpressingOK willtakesometime。DBLSPACEA dependsonhowmanydifferentpasswords， passwords，andyourcomputersspecification。DBLSPACE Justbepatient！Makemeacoffee！AUTHORSVERSION ConstMSGPWORDFOUND1AsStringYouhadaW StructureorWindowsPasswordset。DBLSPACE Thepasswordfoundwas：DBLSPACEDBLSPACE N thesamepersonwhosetthispassword。DBLSPACE Nowtocheckandclearotherpasswords。AUTHORSVERSION ConstMSGPWORDFOUND2AsStringYouhadaW passwordset。DBLSPACEThepasswordfoundwas： DBLSPACEDBLSPACEN setthispassword。DBLSPACEN otherpasswords。AUTHORSVERSION ConstMSGONLYONEAsStringO protectedwiththepasswordthatwasjustfound。 ALLCLEARAUTHORSVERSIONREPBACK Dimw1AsWorksheet，w2AsWorksheet DimiAsInteger，jAsInteger，kAsInteger，lAsInteger DimmAsInteger，nAsInteger，i1AsInteger，i2AsInteger Dimi3AsInteger，i4AsInteger，i5AsInteger，i6AsInteger DimPWord1AsString DimShTagAsBoolean，WinTagAsBoolean Application。ScreenUpdatingFalse WithActiveWorkbook WinTag。ProtectStructureOr。ProtectWindows EndWith ShTagFalse ForEachw1InWorksheets ShTagShTagOrw1。ProtectContents Nextw1 IfNotShTagAndNotWinTagThen MsgBoxMSGNOPWORDS1，vbInformation，HEADER ExitSub EndIf MsgBoxMSGTAKETIME，vbInformation，HEADER IfNotWinTagThen MsgBoxMSGNOPWORDS2，vbInformation，HEADER Else OnErrorResumeNext Dodummydoloop Fori65To66：Forj65To66：Fork65To66 Forl65To66：Form65To66：Fori165To66 Fori265To66：Fori365To66：Fori465To66 Fori565To66：Fori665To66：Forn32To126 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。ProtectStructureFalseAnd 。ProtectWindowsFalseThen PWord1Chr（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 ExitDoBypassallfor。。。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 AttemptclearancewithPWord1 w1。UnprotectPWord1 Nextw1 OnErrorGoTo0 ShTagFalse ForEachw1InWorksheets ChecksforallclearShTagtriggeredto1ifnot。 ShTagShTagOrw1。ProtectContents Nextw1 IfShTagThen ForEachw1InWorksheets Withw1 If。ProtectContentsThen OnErrorResumeNext DoDummydoloop Fori65To66：Forj65To66：Fork65To66 Forl65To66：Form65To66：Fori165To66 Fori265To66：Fori365To66：Fori465To66 Fori565To66：Fori665To66：Forn32To126 。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 PWord1Chr（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 leveragefindingPwordbytryingonothersheets ForEachw2InWorksheets w2。UnprotectPWord1 Nextw2 ExitDoBypassallfor。。。nexts EndIf Next：Next：Next：Next：Next：Next Next：Next：Next：Next：Next：Next LoopUntilTrue OnErrorGoTo0 EndIf EndWith Nextw1 EndIf MsgBoxALLCLEARAUTHORSVERSIONREPBACK，vbInformation，HEADER EndSub 点击保存 07：hr点击开发工具，宏，找到我们刚才录制的宏，点击执行宏 08：hr而后，在弹出的所有对话框上，都点击确定，都确定，1分钟后，就可以编辑了 特别提示 本方法仅适用于20072016版本
前任结婚了是怎样的一种感觉是哪些因素可能造成女性性冷淡防控疫情观后感范文土木堡之变后瓦剌为什么灭亡了减肥瘦腰很有效的三种食物网站如何做关键词布局译文认识你的用户产品设计流程系列业务流程和流程图介绍微信怎么解除手机绑定微信解绑手机步骤银杏树的几种嫁接方法附图片学嫁接方法种禅意盆景种绝美风情邀您欣赏赶紧收藏餐饮营销六步法价值巨大的获客