excel表格撤销保护的方法.doc

excel表格撤销保护的方法 篇一：如何撤销Excel工作表保护 EXCEL工作表编辑资料，设置了工作表保护后，不能对表格进行插入删除操作。 如果没有密码，很简单:工具-选项—工作表保护——撤消工作表保护就可以了。 如果忘记密码，如下操作： 1\打开文件 2\工具---宏----录制新宏---输入名字如:a 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选a,点编辑按钮 5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制下来) Option Explicit Public Sub AllInternalPasswords() #39; Breaks worksheet and workbook structure passwords. Bob McCormick #39; probably originator of base code algorithm modified for coverage #39; of workbook structure / windows passwords and for multiple passwords #39; #39; Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) #39; Modified 2003-Apr-04 by JEM: All msgs to constants, and #39; eliminate one Exit Sub (Version 1.1.1) #39; Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine amp; vbNewLine Const AUTHORS As String = DBLSPACE amp; vbNewLine amp; _ Adapted from Bob McCormick base code by amp; _ Norman Harker and JE McGimpsey Const HEADER As String = AllInternalPasswords User Message Const VERSION As String = DBLSPACE amp; Version 1.1.1 2003-Apr-04 Const REPBACK As String = DBLSPACE amp; Please report failure amp; _ to the gramming newsgroup. Const ALLCLEAR As String = DBLSPACE amp; The workbook should amp; _ now be free of all password protection, so make sure you: amp; _ DBLSPACE amp; SAVE IT NOW! amp; DBLSPACE amp; and also amp; _ DBLSPACE amp; BACKUP!, BACKUP!!, BACKUP!!! amp; _ DBLSPACE amp; Also, remember that the password was amp; _ put there for a reason. Don#39;t stuff up crucial formulas amp; _ or data. amp; DBLSPACE amp; Access and use of some data amp; _ may be an offense. If in doubt, don#39;t. Const MSGNOPWORDS1 As String = There were no passwords on amp; _ sheets, or workbook structure or windows. amp; AUTHORS amp; VERSION Const MSGNOPWORDS2 As String = There was no protection to amp; _ workbook structure or windows. amp; DBLSPACE amp; _ Proceeding to unprotect sheets. amp; AUTHORS amp; VERSION Const MSGTAKETIME As String = After pre