有密码保护的Excel文档，在下次打开时忘记了密码，要怎么取消密码并进入文档？

excel表格被保护该怎么取消不知道密码？~

工具：excel2011
1、先打开保护密码的Excel工作表格，如图所示，修改后缀名称为.rar。

2、然后用压缩文件打开，如图所示，并找压缩的路径。

3、压缩文件找到.xml后缀的文件，直接拖拽出来，重新修改。

4、找到这个.xml文件打开，在文字里面搜索protection，把从的代码所有的删除掉。

5、然后再把刚才的.xml文件，如图所示，选择直接拖到压缩的工作表中两者开始替换掉。

6、再重新修改后缀为.xlsx，这个时候就可以打开Excel表格，就没有了密码保护。

7、可以看到直接进入了，需要重新密保的，直接在审阅选项下对工作表重新进行保护即可。

Excel工作表密码去除，破解

步骤方法如下:
1、打开文件
2、工具---宏----录制新宏---输入名字如:aa
3、停止录制(这样得到一个空宏)
4、工具---宏----宏,选aa,点编辑按钮
5、删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
6、关闭编辑窗口
7、工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!
宏内容如下：
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 BooleanApplication.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

突然看到你这个问题然后突然忘记了 我想象看吧 记起再告诉你

---

西陵区19471705216： 有密码保护的Excel文档,在下次打开时忘记了密码,要怎么取消密码并进入文档? - ？
金柿安其： 步骤方法如下: 1、打开文件 2、工具---宏----录制新宏---输入名字如:aa 3、停止录制(这样得到一个空宏) 4、工具---宏----宏,选aa,点编辑按钮 5、删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) 6、关闭编辑窗口 7、...

西陵区19471705216： 如何设置EXCEL表格保护,在编辑后不用再去设置密码保护,下次打开后依然处于保护状 - ？
金柿安其： 二两种(任选): 1.工具---选项---安全性---打权限密码(设置密码打文件)/修改权限密码(设置密码能打文件能修改文件) 2.文件---另存--工具--规选项--打权限密码(设置密码打文件)/修改权限密码(设置密码能打文件能修改文件) 允许指定...

西陵区19471705216： 在Microsoft Excel文档中,之前设置了密码,但现在我想取消应该怎么？
金柿安其： 工具-选项—安全性,看到打开权限密码/修改权限密码,把你所设置的密码删除掉,确定之后再保存,下次再打开就没有密码了. 也可以在文件--另存为--工具下拉菜单--选常规选项--看到打开权限密码/修改权限密码,把你所设置的密码删掉,确定之后再保存就可以了.

西陵区19471705216： excel文档设了密码后又忘了密码怎么办呀?现在好多资料打不开,好后悔, - ？
金柿安其： 经常和办公软件打交道的人肯定知道,如果把加密文档的密码忘了就相当于将这个文件报废了,那将会是一件多么可怕的事情.今天为大家介绍一款软件,可以在极短的时间里轻松破解Word和Excel文件的密码,它就是Office Password Remover...

西陵区19471705216： wps中excel表格密码忘记了,怎么撤销工作表保护? - ？
金柿安其： 示例在EXCEL2007中进行,可以不使用宏设置,直接按以下方法操作.1、先打开EXCEL,sheet1是一个被保护的工作表,当点击单元格尝试编辑时.会提示试图更改的单元格或图表在受保护的工作表中!2、点击工作表左上角全选,按Ctrl+C 复制工作表,然后在右侧新建 一个工作表,再次点击左上角全选,按CTRL+V粘贴,将被保护的工作表粘贴到新的表中,此时的工作表内容与原表相同,只是没有了密码保护.3、删除原工作表,将新建的工作表名称改为原名称,并移动到原位置即可.

西陵区19471705216： 为什么带有密码保护的excel文件在别的电脑打不开?? ？
金柿安其： 这可能是用第三方软件加密的文件,别的电脑上如果没有安装这个加密软件,就不能打开.要打开这个文件,除了用专用软件破解,就必须安装当时用来加密的文件的软件才行.

西陵区19471705216： excel表格若忘记打开的密码怎么办 - ？
金柿安其： Excel文件加了密码的文件, 推荐使用使用软件 “Office Password Remover”,这个软件能破解Word、Excel和Access文档密码, 而且速度很快,一般情况下解密过程要要几秒钟就行了. 这个软件可以在网上搜索一上, 有很多破解版的可以下...

西陵区19471705216： EXCEL文件加密隐藏后怎么打开啊? - ？
金柿安其： 您可以试试下面的方法:点击“开始”,找到“控制面板”,点击进入,找到“文件夹选项”,打开进入.点击面板上的“查看”选项,找一找里面有个“隐藏文件和文件夹”选项,下面又两个选项,点“显示所有文件和文件夹”.“确定”...

西陵区19471705216： 设有密码的Excel表格怎样取消加密?是用表格自身的＂工具选项＂加密的. - ？
金柿安其： 首先用原密码打开表格,然后点击“文件——另存为”,在弹出的对话框中选择“工具——常规选项”.你就会看到密码设置窗口(和你当初设置密码时的一样),只是你的密码会以····的形式出现,将它们全部删除,保证密码栏内容为空,再按“确定”,再按“保存”,会提示你是否将原文件覆盖,选择“是”,OK.

西陵区19471705216： excel如何让加密 - ？
金柿安其： 以Microsoft Office Excel 2007为例,介绍如何给Excel加密:1、打开需要加密的Excel文档;2、使用快捷键“Alt+F”,打开Excel菜单栏;3、将鼠标移至“准备”,弹出“准备要分发的文档”对话框;4、点击“加密文档”,在弹出的对话框中设置“密码”;5、点击“确定”.Excel文档加密完成,下次打开加密文档时,需要输入正确的密码!