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

。 在日常工作中， 大家有时会遇到过这样的情况： 使用 Excel 编制的报表、表格、 程序等，在单元格中设置了公式、 函数等，为了防止其他人修改您的设置或者防 止您自己无意中修改， 您可能会使用 Excel 的工作表保护功能， 但时间久了保护 密码容易忘记， 这该怎么办？有时您从网上下载的 Excel 格式的小程序， 您想修 改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作， Excel 工作表保护密码瞬间 ( 稍微有点夸张 ) 即破！ 工具 / 原料 待破解的 Excel 工作表 方法 / 步骤 1. 1 打开您需要破解的 Excel 文件，如图所示： 精选资料，欢迎下载 。 2. 2 依次点击菜单栏上的工具 宏 录制新宏； 3. 3 输入宏名字（ PS：打击积极性啊！）如 : 易尔拓，然后停止录制 ( 这样得到 一个空宏，为后面添加 vb 代码做准备 ) ； 精选资料，欢迎下载 。 4. 4 依次点击菜单栏上的工具 宏 宏, 选易尔拓 , 点编辑按钮； 删除窗口中的所有字符 , 替换为下面的内容； Option Explicit Public Sub AllInternalPasswords() Breaks worksheet and workbook structure passwords. Bob McCorm ick probably originator of base code algorithm modified for cover age of workbook structure / windows passwords and for multiple pa sswords 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. Co