excel表格删除宏.doc
文本预览下载声明
excel表格删除宏
篇一：excel取消表格宏
如何取消excel密码
方法:
1\打开文件
2\工具---宏----录制新宏---输入名字如:aa
3\停止录制(这样得到一个空宏)
4\工具---宏----宏,选aa,点编辑按钮
5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
6\关闭编辑窗口
7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!
内容如下：
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 pressing OK button
显示全部