撤销工作表保护方法.docVIP

1\打开文件 2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编辑按钮 5\删除窗口中的所有字符(只有几个),替换为下面的内容:(你复制吧) 6\关闭编辑窗口 7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!! 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