如何解除EXCEL工作表锁定.docVIP

. .. ?在日常工作中，大家有时会遇到过这样的情况：使用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间(稍微有点夸张)即破！ HYPERLINK /album/215817f7c2279c1eda1423a7.html?picindex=1 \t _self 工具/原料 待破解的Excel工作表 方法/步骤 1 打开您需要破解的Excel文件，如图所示： HYPERLINK /album/215817f7c2279c1eda1423a7.html?picindex=2 \t _self 2 依次点击菜单栏上的工具---宏----录制新宏； HYPERLINK /album/215817f7c2279c1eda1423a7.html?picindex=3 \t _self 3 输入宏名字（PS：打击积极性啊！）如:易尔拓，然后停止录制(这样得到一个空宏，为后面添加vb代码做准备)； HYPERLINK /album/215817f7c2279c1eda1423a7.html?picindex=4 \t _self 4 依次点击菜单栏上的工具---宏----宏,选易尔拓,点编辑按钮；删除窗口中的所有字符,替换为下面的内容； 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 passwordsConst DBLSPACE As String = vbNewLine vbNewLineConst AUTHORS As String = DBLSPACE vbNewLine _Adapted from Bob McCormick base code by _Norman Harker and JE McGimpseyConst HEADER As String = AllInternalPasswords User MessageConst VERSION As String = DBLSPACE Version 1.1.1 2003-Apr-04Const 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