Excel中表格工作表保护密码撤销的操作方法.doc

PAGE1 / NUMPAGES1 PAGE1 / NUMPAGES1 Excel中表格工作表保护密码撤销的操作方法 　　在做excel表格时我们有时候会给自己的工作表加密，一旦忘记密码就会很麻烦，如何绕过密码，直接撤销保护。今天，学习啦小编就教大家在Excel中表格工作表保护密码撤销的操作方法。 　　Excel中表格工作表保护密码撤销的操作步骤　　打开excel，点击菜单栏的“视图”，点击二级菜单里的“宏”，选择录制宏。 表格工作表保护密码撤销的操作图1　　在弹出来的方框中输入宏的名称，点击确认。 表格工作表保护密码撤销的操作图2　　重复第一步的步骤，不过这次点击“停止录制”。 表格工作表保护密码撤销的操作图3　　选择查看宏。 表格工作表保护密码撤销的操作图4　　编辑宏。 表格工作表保护密码撤销的操作图5　　在弹出来的代码框输入下面的代码：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 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.” 　　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. Don’t stuff up crucial formulas “ _ 　　”or data.” DBLSPACE “Access and use of some data “ _ 　　”may be an offense. If in doubt, don’t.” 　　Const MSGNOPWORDS1 As String = “There were no passwords on “ _ 　　”sheets, or workbook structure or windows.” AUTHORS VERSION 　　Const MSGNOPWORDS2 As String = “There was no protection to “ _ 　　”workbook structure or windows.” DBLSPACE _ 　　”Proceeding to unprotect shee