在Excel中加入了密码，在过了一段时间后，觉得不需要再用密码保护了，就可以取消密码的保护，这个功能比较常用，如果工作上经常需要用到Excel的朋友，不妨学习学习，下面是读文网小编带来的关于excel2013取消加密的教程，欢迎阅读!

excel2013取消加密的教程：

教程1：如图所示，打开加密的Excel表格文件时需要输入密码，那么该怎么取消这个密码，且看下面

教程2：输入excel文档的密码，打开这个Excel表格，点击左上角的WPS 表格，在下拉菜单中找到“文件信息”选项

教程3：打开“文件信息”按钮，找到“文件加密”选项

教程4：打开“文件加密”选项，然后删除打开密码和再次输入处的两串密码，点击确定

教程5：然后点击保存修改后的word文档，这样就完成了对加密word文档的解密，当你再次打开时就不需要再输入密码

在Excel中经常需要为重要的文件加密，但随着时间的流逝，重要的文件变得不重要了，这个时候就可以把文件的加密取消了，但有很多朋友只会加密而不会取消加密，下面是由读文网小编分享的excel07取消加密的教程，希望对你有用。

excel07取消加密的教程：

取消加密步骤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 " & _

"passwords, and your computer's specification." & DBLSPACE & _

"Just be patient! Make me a coffee!" & AUTHORS & VERSION

Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _

"Structure or Windows Password set." & DBLSPACE & _

"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _

"Note it down for potential future use in other workbooks by " & _

"the same person who set this password." & DBLSPACE & _

"Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _

"password set." & DBLSPACE & "The password found was: " & _

DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _

"future use in other workbooks by same person who " & _

"set this password." & DBLSPACE & "Now to check and clear " & _

"other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & _

"protected with the password that was just found." & _

ALLCLEAR & AUTHORS & VERSION & REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

With ActiveWorkbook

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If .ProtectStructure = False And _

.ProtectWindows = False Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND1, _

"$$", PWord1), vbInformation, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do 'Dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If Not .ProtectContents Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND2, _

"$$", PWord1), vbInformation, HEADER

'leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER

End Sub

-----------------------------------------------------------------------------------------

复制到横线以上

得到情况如下图表示

取消加密步骤6：关闭编辑窗口;

取消加密步骤7：依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;

等一会,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档，你又想恢复密码设置，就可以用此密码进行保护，他就能用他设置的密码打开，你可以试试，很有趣的。字母一定要大写)：

再点击确定。Excel的原始密码就被清除了!!

取消加密步骤8：最后记得关闭EXCEL文档时要保存，否则下回打开，文档仍旧处于只读状态而无法修改。

在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 " & _
#p#副标题#e#

"passwords, and your computer's specification." & DBLSPACE & _

"Just be patient! Make me a coffee!" & AUTHORS & VERSION

Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _

"Structure or Windows Password set." & DBLSPACE & _

"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _

"Note it down for potential future use in other workbooks by " & _

"the same person who set this password." & DBLSPACE & _

"Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _

"password set." & DBLSPACE & "The password found was: " & _

DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _

"future use in other workbooks by same person who " & _

"set this password." & DBLSPACE & "Now to check and clear " & _

"other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & _

"protected with the password that was just found." & _

ALLCLEAR & AUTHORS & VERSION & REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

With ActiveWorkbook

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If .ProtectStructure = False And _

.ProtectWindows = False Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND1, _

"$$", PWord1), vbInformation, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do 'Dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If Not .ProtectContents Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND2, _

"$$", PWord1), vbInformation, HEADER

'leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER

End Sub

-----------------------------------------------------------------------------------------

取消加密步骤6：复制到横线以上

取消加密步骤7：得到情况如下图表示

取消加密步骤8：关闭编辑窗口;

取消加密步骤9：依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;

取消加密步骤10：等一会,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档，你又想恢复密码设置，就可以用此密码进行保护，他就能用他设置的密码打开，你可以试试，很有趣的。字母一定要大写)：

取消加密步骤11：再点击确定。Excel的原始密码就被清除了!!

取消加密步骤12：最后记得关闭EXCEL文档时要保存，否则下回打开，文档仍旧处于只读状态而无法修改。

Excel中经常需要把已经加密的文档进行取消加密的操作，取消加密功能具体该如何实现呢?下面是读文网小编带来的关于excel2007取消加密功能的教程，希望阅读过后对你有所启发!

excel2007取消加密功能的教程1

步骤1：2007版Excel表格中可以按照以下方式建宏：

步骤2：打开Excel表格中的Excel选项，选择自定义，得到如下画面：

步骤3：然后在左边侧框栏中选择“查看宏”

之后双击或者选择添加按钮，则可以看到右边栏中有了查看宏按钮，之后点击右下角的确定。

步骤4：大家可以在下面这个窗口处看到箭头所指的按钮：

点击按钮，之后弹出窗口：

步骤5：在宏名处填写一个名字(可随意)，然后点击创建，弹出以下窗口：

步骤6：将窗口内的内容全选后删除，然后将下面分割线以内的内容开始复制粘贴在上面的窗口内：

从横线下开始复制

------------------------------------------------------------------------------------------

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 " & _

"passwords, and your computer's specification." & DBLSPACE & _

"Just be patient! Make me a coffee!" & AUTHORS & VERSION

Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _

"Structure or Windows Password set." & DBLSPACE & _

"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _

"Note it down for potential future use in other workbooks by " & _

"the same person who set this password." & DBLSPACE & _

"Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _

"password set." & DBLSPACE & "The password found was: " & _

DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _

"future use in other workbooks by same person who " & _

"set this password." & DBLSPACE & "Now to check and clear " & _

"other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & _

"protected with the password that was just found." & _

ALLCLEAR & AUTHORS & VERSION & REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

With ActiveWorkbook

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If .ProtectStructure = False And _

.ProtectWindows = False Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND1, _

"$$", PWord1), vbInformation, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do 'Dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If Not .ProtectContents Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND2, _

"$$", PWord1), vbInformation, HEADER

'leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER

End Sub

-----------------------------------------------------------------------------------------

复制到横线以上

得到情况如下图表示

步骤7：关闭编辑窗口;

步骤8：依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;

步骤9：等一会,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档，你又想恢复密码设置，就可以用此密码进行保护，他就能用他设置的密码打开，你可以试试，很有趣的。字母一定要大写)：

步骤10：再点击确定。Excel的原始密码就被清除了!!

步骤11：最后记得关闭EXCEL文档时要保存，否则下回打开，文档仍旧处于只读状态而无法修改。

看了excel2007取消加密功能的教程还看了：

Excel中已经冻结的数据具体该如何操作才能够取消冻结的效果呢?下面是读文网小编带来的关于excel表格取消冻结的教程，希望阅读过后对你有所启发!

excel表格取消冻结的教程：

取消冻结步骤1：首先打开EXCEL表

取消冻结步骤2：进入EXCEL表此界面，横线部分一行是被冻结的部分

取消冻结步骤3：点击视图图标

取消冻结步骤4：选中首行

取消冻结步骤5：点击冻结窗格下面的倒三角键头

取消冻结步骤6：点击取消冻结窗格

取消冻结步骤7：取消成功，首行的横线不见了。

Excel中经常需要使用到为表格取消加密的技巧，加了密码的表格具体该如何进行解密呢?下面是由读文网小编分享的excel表格取消加密的教程，以供大家阅读和学习。

excel表格取消加密的教程：

取消加密步骤1：在excel里点击文件，另存为命令。

取消加密步骤2：为文件指定保存地址。

取消加密步骤3：指定好保存地址和文件名后，点击工具常规选项。

取消加密步骤4：将打开权限密码或者修改权限密码删除，确定，然后保存即可。

Excel中经常需要使用到加密功能对重要的文档进行加密，文档加密具体该如何操作呢?接下来是读文网小编为大家带来的excel2007文档加密教程，供大家参考。

excel2007文档加密教程：

文档加密步骤1：打开你需要加密的excel文档，点击“文件”，选择“另存为”，如下图一

图一

文档加密步骤2：选择另存为“excel工作簿”;

文档加密步骤3：在“另存为”界面选择“工具(L)”，在工具菜单选择“常规选项(G)”，如下图二

图二

文档加密步骤4：“常规选项(G)”中输入密码，如下图三。其中打开权限密码和修改权限密码分别设置就可以了。

图三

文档加密步骤5：保存文件。

文档加密步骤6：打开刚刚保存的文件，出现，输入密码对话框，在对话框里输入对应密码就可以了。见下图四。

图四

Excel中被隐藏的数据列具体该如何进行操作才能取消隐藏变为显示呢?下面是由读文网小编分享的excel取消隐藏列的教程，以供大家阅读和学习。

excel取消隐藏列的教程：

取消隐藏列步骤1：首先我在excel中随便输入了三列数字作为演示，当然如果隐藏或者取消隐藏行的话也是一样的。如图所示的这三列数字 ，我们可以隐藏中间的一列。

取消隐藏列步骤2：那么就在这中间的想隐藏的 F列上点击鼠标右键，然后会在右键出现一个隐藏的选项，我们只要选择此选项即可以隐藏该列。

取消隐藏列步骤3：如图所示， 现在这F列的数据已经被隐藏了，如果我们不仔细看是看不到此处还应该有一组数据的，但是我们还是可以通过字母的顺序来获知此处被隐藏了一组。

取消隐藏列步骤4：那么现在我们来取消隐藏这列数据，用鼠标选定这两列数据组，因为我们是隐藏的中间一列，所以要将其两边的E与G列都选择起来。如图所示。

取消隐藏列步骤5：选择完成后点击鼠标右键，然后会在右键菜单中出现一个取消隐藏的选项，我们选择此选项后此F列便会重新出现了。如图。

取消隐藏列步骤6：其实我们想要取消隐藏还有另外的一种简单的方法。就是在E与G列数据之间的那条分界线，我们可以将鼠标移动到此分界线的右侧，当鼠标变成了一个可移动的图标时，我们可以拖动鼠标向右，如图所示。

取消隐藏列步骤7：我们向右拖动的时候那被隐藏的F列已经显示出来了，直到将其数据完全显示，松开鼠标，然后此被隐藏的数据列就又重新显示出来了。

Excel中经常需要把多个表格的筛选功能给取消掉，多个表格的筛选具体该如何进行取消呢?下面是由读文网小编分享的excel取消多个表的筛选方法，以供大家阅读和学习。

excel取消多个表的筛选方法：

取消多个表筛选步骤1：如图去除多个表格中的筛选

取消多个表筛选步骤2：在表格标签按住CTRL选择你需要清除的表格筛选

取消多个表筛选步骤3：这是 主面板点击清除--清除格式

取消多个表筛选步骤4：然后我们还原标题行样式即可

Excel中已经加了密码的文档具体该如何操作才能把加了密码的文档给取消加密呢?下面是读文网小编带来的关于excel取消加密的方法，希望阅读过后对你有所启发!

excel取消加密的方法（1）

步骤1：先录入密码，确定打开要取消密码的excel文件。

步骤2：在文件菜单下点击另存为，取消密码的办法其实就是再把文件保存一次，在保存替换原文件或重命名时将密码取消掉。

步骤3：点击工具选择常规选项

步骤4：删除密码，点击确定并保存。

步骤5：提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。

步骤6：如果想保留原文件重新存一份，点击否再修改文件名保存为一份新的文件。

Excel中经常需要取消公式，公式具体该如何操作才能进行取消呢?接下来是读文网小编为大家带来的excel取消公式的方法，供大家参考。

excel取消公式的方法：

取消公式步骤1：选中结果，点右键复制。

取消公式步骤2：点击“编辑”-“选择性粘贴”

取消公式步骤3：选择“数值”确定即可。

取消公式步骤4：当然也可以选择性粘贴到其他位置。

Excel中经常需要使用到取消函数的这个技巧进行取消函数，取消函数具体该如何进行操作呢?下面是读文网小编带来的关于excel取消函数的教程，希望阅读过后对你有所启发!

excel取消函数的教程（1）

步骤：将原有的数据全选，然后在原来的位置，选择性粘贴，粘贴为数值，这样就可以随便复制粘贴了。

Excel中经常需要使用到添加密码的技巧，密码具体该如何进行添加呢?下面是由读文网小编分享的excel添加密码的教程，以供大家阅读和学习。

excel添加密码教程：

添加密码步骤1：如果你想让别人只可以看见内容而不能更改，这样不必把密码告诉别人，那么就用第二种方法。

添加密码步骤2：打开表格后点击左上角然后选择另存为。

添加密码步骤3：选择工具-常规选项

添加密码步骤4：这时会让你输入打开权限密码和修改权限密码。

添加密码步骤5：输入密码确定后同样会提示你重新输入确定，最后保存就可以了。

添加密码步骤6：这里解释一下，打开权限密码和方法一中是一样的，就是你打开时就必须输入密码才能看到内容;而设置修改权限密码后你可以不用密码选择用只读的方式打开查看内容，想要修改就必须输入密码。

添加密码步骤7：只读方式打开后修改内容，在保存时就会提示你只能保存副本，原有的数据不会被改动。

Excel中经常需要使用到加密功能为表格进行加密，表格加密具体该如何操作呢?下面是由读文网小编分享的excel为表格加密的教程，以供大家阅读和学习。

excel为表格加密教程：

表格加密步骤1：打一个EXCEL文件，如图点击最左上角的那个图案;

表格加密步骤2：点击以后能够看到如下图，再点击“准备”

表格加密步骤3：再点击“加密文档”

表格加密步骤4：就会出现一个下面的对话框：

表格加密步骤5：输入密码即可，点击确定，再一次输入密码

Excel中经常需要使用到取消隐藏工作表的技巧把隐藏的工作表设置为显示，工作表具体该如何进行取消隐藏呢?下面是由读文网小编分享的excel2007取消隐藏工作表的方法，以供大家阅读和学习。

excel2007取消隐藏工作表方法：

取消隐藏工作表步骤1：首先查看工作表是否被保护

取消隐藏工作表步骤2：点击保护工作表，若已经设置保护，请输入保护密码。下图为没有设置保护工作表：

取消隐藏工作表步骤3：在excel2007中操作流程为 ：视图→窗口

取消隐藏工作表步骤4：点击取消隐藏

取消隐藏工作表步骤5：选择需要显示的工作表，点击确定。

取消隐藏工作表步骤6：在工作表名称位置点击鼠标右键→点击“取消隐藏”→选择需要显示的工作表。

取消隐藏工作表步骤7：选中工作表名称，右键点击

取消隐藏工作表步骤8：点击取消隐藏或点击取消工作表隐藏

取消隐藏工作表步骤9：选择需要显示的工作表，点击确定。

取消隐藏工作表步骤10：工作表内的表格部分被隐藏

取消隐藏工作表步骤11：看下图中的表格，未被隐藏前：

取消隐藏工作表步骤12：隐藏后：6、7列数据被隐藏

取消隐藏工作表步骤13：右键点击A、B.....列

取消隐藏工作表步骤14：点击取消隐藏，隐藏表格出现：

Excel中经常需要为锁定的单元格进行取消锁定的操作，取消锁定单元格具体该如何操作呢?下面是读文网小编带来的关于excel表格单元格取消锁定的方法，希望阅读过后对你有所启发!

excel表格单元格取消锁定方法：

取消锁定单元格步骤1：点击菜单栏上的审阅栏目，选择撤销保护工作表

取消锁定单元格步骤2：输入撤销密码，点击确定就可以了

在我生活中经常有需要给excel软件加密的情况，涉及一些比较私人的文档或者机密的文档，一般人不会去选择用专用的加密工具，因为工具贵，接下来是读文网小编为大家带来的excel2007数据加密的方法，供大家参考。

excel2007数据加密的方法：

数据加密步骤1：很多时候为了文件的安全，我们要对文件进行加密。很多人都不清楚，在excel本身就有加密功能

在excel2007的页面点击【offic 按钮】

数据加密步骤2：在点击过【offic 按钮】后得到

数据加密步骤3：选着【准备(E)】点击【加密文档(E)】

数据加密步骤4：出现【加密文档】，输入密码然后点击【确定】

数据加密步骤5：再次确认密码，然后【确定】，加密成功

数据加密步骤6：再次打开该文档是就会出现

数据加密步骤7：输入设置的密码即可打开文档