excel解除工作表保护密码(宏).docVIP

下载本文档

74
0
约1.17万字
约 8页
2018-03-24 发布于北京
举报
版权申诉

excel解除工作表保护密码(宏).doc

1、本文档共8页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

excel解除工作表保护密码(宏).doc

可以解除工作表保护密码。?你可以把它保存为一个宏，运行，点两次确定，等到它运行结束，工作表密密码就解除了。Option?Explicit?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?passwords?Const?DBLSPACE?As?String? ?vbNewLine??vbNewLine?Const?AUTHORS?As?String? ?DBLSPACE??vbNewLine??_?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?gramming?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??VERSION?Const?MSGNOPWORDS2?As?String? ?There?was?no?protection?to???_?workbook?structure?or?windows.??DBLSPACE??_?Proceeding?to?unprotect?sheets.??AUTHORS??VERSION?Const?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??VERSION?Const?MSGPWORDFOUND1?As?String? ?You?had?a?Worksheet???_?Structure?or?Windows?Password?set.??DBLSPACE??_?T