excel2007取消加密的有效方法

excel2007取消加密的有效方法

　　在Excel中录入好重要资料的时候都需要进行密码保护处理，而过了一段时间后却觉得不再需要用到密码进行保护了，这个时候就需要用到取消加密的功能了，具体该如何取消加密的功能呢?下面是由学习啦小编分享的excel2007 取消加密的有效方法，以供大家阅读和学习。

　　excel2007 取消加密的有效方法：

　　取消加密步骤1：打开Excel表格中的Excel选项，选择自定义，得到如下画面：

　　取消加密步骤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 microsoft.public.excel.programming 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 sheets." & AUTHORS & VERSION

　　Const MSGTAKETIME As String = "After pressing OK button this " & _

　　"will take some time." & DBLSPACE & "Amount of time " & _

　　"depends on how many different passwords, the " & _