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

发布网友 发布时间：2022-04-23 00:29

我来回答

共8个回答

热心网友 时间：2022-05-21 10:59

工具：excel2011

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

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

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

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

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

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

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

热心网友 时间：2022-05-21 12:17

破解excel密码 打开文档后，通过文件菜单中“另存为”，将文档存为rtf格式。保存好文件后，先关掉文档再打开另存的文件，选择工具栏中的“解除文档保护”命令，不用填写密码就可以解除此文件的“文档保护功能”，而且任何信息都不会丢失。用Office Password Remover这个软件可以打开。
使用方法：
首先运行解压好的OPRemove.exe 这个程式，打开程式后能看到中间文本框后面有个类似目录的按钮。
选择后出现下图的画面，点击移除密码。
呆几秒钟后便出现“该文件已被成功破解”，点确定即可，这时候就大功告成了。 在这里要注意的是，破解后的文章名字会有点变化，加了“DEMO”这四个字母，翻译过来就是示范的意思，不必在意，重命名去掉就能了。

热心网友 时间：2022-05-21 13:52

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

2、然后输入密码，将文件打开。

3、点击右上角的“文件”。

4、点击“保护工作簿”

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

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

7、然后我们将密码删除，然后点击确定。

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

热心网友 时间：2022-05-21 15:43

使用以下步骤进行破解被保护的工作表：
所需材料：记事本、Excel。
一、首先点击被保存的工作薄，按F2重命名，格式改为RAR。
二、这时表格会变为一个压缩包，打开该压缩包，打开后双击打开XL文件夹。
三、然后再双击打开Worksheets文件夹。
四、打开该目录后，把被保护工作表拖至桌面。
五、接着使用记事本打开该文件。
六、打开该文件后，Ctrl+F键打开查找窗口，输入Protection，点击查找下一个。
七、找到后，选中其所在尖括号内的全部内容（包括前后两个尖括号），按Del键删除这串字符，按Ctrl+S保存，保存后关闭记事本。
八、接着把已经修改完的文件再次拖入压缩包当前目录内。
九、弹出的替换文件窗口内点击替换。
十、再次点击压缩包，按F2键重命名，格式改为XLSX表格格式。
十一、这时打开该工作薄，进入审阅选项卡下，撤消工作薄保护按钮消失，破解完成。

热心网友 时间：2022-05-21 17:51

哈哈我今天刚好碰到一样的问题，现在把方法给你！

EXCEL工作表保护密码忘记了，如何撤消工作表保护？

1\打开文件
2\工具---宏----录制新宏---输入名字如:aa
3\停止录制(这样得到一个空宏)
4\工具---宏----宏,选aa,点编辑按钮
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 'mmy 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,运行,确定两次,等2分钟,再确定.OK,没有密码了!!

热心网友 时间：2022-05-21 20:32

如果别人设了密码，只有一种方法，用“秒破还原器”，淘~宝里有，把文件拖进去，几秒钟就可以全部破开了，神奇吧

热心网友 时间：2022-05-21 23:30

那如果不知道密码的话可能你就没办法进去因为这是个死的密码，或者是要相关人员帮你解开。

热心网友 时间：2022-05-22 03:02

着急用的情况下，可以复制表格内容到新建的excel中，亲身体验还不错