




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、EXCEL工作表保护密码破解宏撤销保护图文教程hong点击“确定”按钮你好,这是我遇到类似问题时,上网找的。如果你遇到类似问题,也可以用以下方法进行处理,在这里感谢作者。1新建宏工具-宏-录制新宏随便输入个名字如2点击“停止录制”按钮或从菜单“停止录制”宏工具(X)|数据窗口址)帮助拼写检查FT-1a信息检索().Alt+Click错误检查.共享工作区.共享工作縛.保护1联机协作追)公式审核QJ)卜宏宏自定殳().J停止录制()选项(jo).安全性3点击工具-宏-宏选择刚才所建的宏然后点击“编辑”按钮工具数据窗口址)帮助拼写检查E.FT+12信息检索迅.Alt+Click错误检查.共享工作医.
2、共享工作縛.保护(1)卜联机协作1卜I公式审核QJ)宏Z宏r*i*-*八1/宀4经过以上会弹出代码编写窗口5填写代码将下面的代码全部复制必替换原来的字符,填写完毕后关闭该窗口PublicSub工作表保护密码破解()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&作者:圣天ConstHEADERAsString=工作表保护密码破解ConstVERSIONAsString=DBLSPACE&版本Version1.1.1ConstREPBACKAsString=DBLSPACE&Cons
3、tZHENGLIAsString=DBLSPACE&XXXXXXXConstALLCLEARAsString=DBLSPACE&该工作簿中的工作表密码保护已全部解除!&DBLSPACE&请记得另保存_&DBLSPACE&注意:不要用在不当地方,要尊重他人的劳动成果!ConstMSGNOPWORDS1AsString=该文件工作表中没有加密ConstMSGNOPWORDS2AsString=该文件工作表中没有加密ConstMSGTAKETIMEAsString=解密需花费一定时间DBLSPACE&按确定开始破解!ConstMSGPWORDFOUND1AsString=密码重新组合为DBLSPAC
4、E&_如果该文件工作表有不同密码,将搜索下一组密码并修改清除ConstMSGPWORDFOUND2AsString=密码重新组合为DBLSPACE&_如果该文件工作表有不同密码,将搜索下一组密码并解除ConstMSGONLYONEAsString=确保为唯一的?Dimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,2,请耐心等候&DBLSPACE&$&DBLSPACE&$&AsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i
5、4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbIn
6、formation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenElseOnErrorResumeNextDodummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126WithActiveWorkbook.UnprotectChr(i)&Chr
7、(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=FalseThenPWord1=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),vbInformatio
8、n,HEADERExitDoBypassallfor.nextsEndIfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheetsAttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorG
9、oTo0ShTag=FalseForEachw1InWorksheetsChecksforallclearShTagtriggeredto1ifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDoDummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:
10、Fori4=65To66Fori5=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.ProtectContentsThenPWord1=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,HEADERleveragefindingPwordbytryingonothersheetsForEachw2InWorksheetsw2.UnprotectPWord1Nextw2ExitDoBypassallfor.nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 便利店店员岗位面试问题及答案
- 智慧渔业工程师岗位面试问题及答案
- 2025届天津四十二中化学高一下期末经典试题含解析
- 安徽省临泉县第一中学2025届高一化学第二学期期末考试模拟试题含解析
- 北京市大兴区2025届化学高二下期末质量检测试题含解析
- 云南省石屏县一中2025届高一化学第二学期期末质量跟踪监视试题含解析
- 2025届重庆外国语学校化学高二下期末达标检测试题含解析
- 华为干部选拔管理办法
- 刺桐史迹保护管理办法
- 初创公司销售管理办法
- 2024年社区工作者考试必考1000题及完整答案
- 起重装卸机械3级复习试题附答案
- 2025年广东省广州市天河区前进街道办事处招聘1人历年高频重点提升(共500题)附带答案详解
- 2024年09月2024秋季中国工商银行湖南分行校园招聘620人笔试历年参考题库附带答案详解
- 蒙医学在肿瘤治疗中的应用
- 《北京市道路桥梁试验检测费用定额》
- 中医院人才引进绩效考核方案
- 高速公路施工安全培训课件
- 2024年中级经济师考试经济基础知识必考重点总结全覆盖
- 转岗人员安全知识培训
- 铁岭三支一扶真题2023
评论
0/150
提交评论