excel2007取消加密保护的教程.docxVIP

第 第 PAGE 1 页 共 NUMPAGES 1 页 excel2007取消加密保护的教程 　　在Excel中有很多重要的数据前期需要加上密码保护，但到后期却已经不再重要需要取消加密保护，下面是小编带来的关于excel 2007取消加密保护的教程的内容，欢迎阅读!　　excel 2007取消加密保护的教程1：打开Excel表格中的Excel选项，选择自定义，得到如下画面：　　excel 2007取消加密保护的教程2：然后在左边侧框栏中选择查看宏　　之后双击或者选择添加按钮，则可以看到右边栏中有了查看宏按钮，之后点击右下角的确定。　　excel 2007取消加密保护的教程3：大家可以在下面这个窗口处看到箭头所指的按钮：　　点击按钮，之后弹出窗口：　　excel 2007取消加密保护的教程4：在宏名处填写一个名字(可随意)，然后点击创建，弹出以下窗口：　　excel 2007取消加密保护的教程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 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: SAVE IT NOW! and also BACKUP!, BACKUP!!, BACKUP!!! Also, remember that the password was put there for a reason. Dont stuff up crucial formulas or data. Access and use of some data may be an offense. If in doubt, dont.　　Const MSGNOPWORDS1 As String = There were no passwords on sheets, or workbook structure or windows. VERSION　　Const MSGNOPWORDS2 As String = There was no protection to workbook structure or windows. _　　Proceeding to unprotect sheets. VERSION　　Const MSGTAKETIME As String = After pressing OK button this will take some time. Amoun