excel2007表格取消密码.docVIP

excel2007表格取消密码 篇一：2007版Excel表格—“撤销工作表保护密码”的破解并获取原始密码 Excel—“撤销工作表保护密码”的破解并获取原始密码 在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！ 2007版Excel表格中可以按照以下方式建宏： 1、打开Excel表格中的Excel选项，选择自定义，得到如下画面： 2、然后在左边侧框栏中选择“查看宏” 则可以看到右边栏中有了查看宏按钮，之后点击右下角的确定。 3、大家可以在下面这个窗口处看到： 之后双击或者选择添加按钮， 点击按钮，之后弹出窗口： 4、在宏名处填写一个名字（可随意），然后点击创建，弹出以下窗口： 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; _ quot;Adapted from Bob McCormick base code byquot; amp; _ quot;Norman Harker and JE McGimpseyquot; Const HEADER As String = quot;AllInternalPasswords User Messagequot; Const VERSION As String = DBLSPACE amp; quot;Version 1.1.1 2003-Apr-04quot; Const REPBACK As String = DBLSPACE amp; quot;Please report failure quot; amp; _ quot;to the gramming newsgroup.quot; Const ALLCLEAR As String = DBLSPACE amp; quot;The workbook should quot; amp; _ quot;now be free of all password protection, so make sure you:quot; amp; _ DBLSPACE amp; quot;SAVE IT NOW!quot; amp; DBLSPACE amp; quot;and alsoquot; amp; _ DBLSPACE amp; quot;BACKUP!, BACKUP!!, BACKUP!!!quot; amp; _ DBLSPACE amp; quot;Also, remember that the password was quot; amp; _ quot;put there for a reason. Don#39;