加密的Excel表格怎么取消密码-如何给excel去除密码,excel怎么去除密码保护

1、打开您需要撤销保护密码的Excel文件；

2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:ab；

3、停止录制(这样得e79fa5e98193e4b893e5b19e335到一个空宏)；

4、依次点击菜单栏上的工具---宏----宏,选ab,点编辑按钮；

5、删除窗口中的所有字符(只有几个),替换为以下内容；

Public Sub 工作表保护密码()
Const DBLSPACE As
String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE &
vbNewLine & _
"作者:eric"
Const HEADER As String = "工作表保护密码"
Const
VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String
= DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE &
"
eric"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除。" &
DBLSPACE & "请记得重新设置密码" _
& DBLSPACE & "注意：此方法仅用于遗忘密码使用。"
Const
MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String =
"该文件工作表中没有加密2"
Const MSGTAKETIME As String = "请耐心等候!" & DBLSPACE &
"按确定开始回复"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE &
"$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const
MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE
& _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String =
"确保为唯一的?"
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
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 & ZHENGLI, vbInformation, HEADER
End Sub

6、关闭编辑窗口；

7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次，等候一两分钟,会出现以下对话框：

这是Excel密码对应的原始密码(此密码和之前设置的密码均能打开此文档。

操作方法如百下：

1.首先打开加密的文件，此时就会弹跳出输入密码的窗口；

度查看大图" class="ikqb_img_alink">

2.然后输入密码内，将文件打开；

3.点击右上角的“文件”；

4.点击“保护工作簿”；

5.选择“用密码进行加密”，然后会弹出窗口；

6.然后就会看到，在弹出的窗口，有密码；

7.然后我们将密码删除，然后点击确定；

8.然后将表格关闭，并保存更改，再次打开时就不需容要密码了。

具体操作步骤如下：

1、首zhidao先打开需要编辑的excel，点击上方“审阅”选项。

2、然后在该页面中点击“保护工作表”选项。

3、之后在该页面中输版入密码后点击“确定”选项即可设置密码成功。

4、如果想解除密码的话在“权审阅”页面中点击“撤销工作表保护”选项。

5、最后在弹出来的方框中输入密码后点击“确定”选项即可解除密码。

方法/步骤

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

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

点击工具选择常规选项

删除密码，点击确定并度保存。

提示文件已存在要替换它吗？如果想要覆盖原文件直接点击是就替换掉知了。
如果想保留原文件重新存一份，点击否再修改文道件名保存为一份新的文件。