撤销工作薄保护程序应用.docVIP

Excel—“撤销工作表保护密码”的破解 ?在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！（2007版?的文件有更简洁的方法，在本文最后有介绍）????1、打开您需要破解保护密码的Excel文件；????2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；????3、停止录制(这样得到一个空宏)；????4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；5、删除窗口中的所有字符(只有几个),替换为下面的内容；从横线下开始复制------------------------------------------------------------------------------------------Option?ExplicitPublic?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.??DBLSPA