⑴ excel表格加密忘记密码怎么办
⑵ excel文档加密忘记密码怎么解锁
如果是用专业的防泄密软件加密的excel文档 是无法破解的
比如域之盾系统 加密过的文件任何形式的非法外发 传输 拷贝打开都是乱码 无法破解 只有正常解密或者通过审批以后外发 输入正确密码才可以打开文件
希望可以帮助到你
⑶ Excel工作簿密码忘记了，怎么破
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 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
⑷ excel表格设置密码忘记了怎么办
excel表破解密码步骤：
Excel Password Unlocker破解版是一款专业用于微软 Excel 数据库文档的密码破解恢复工具。想必 Excel 应该是办公一族经常用到的吧，如果你的 Excel 密码忘记了你可以尝试使用该软件进行恢复密码或者清除密码。
Excel Password Unlocker 5.0 汉化版是专为恢复丢失的 Microsoft Excel 密码设计，一个易于使用的工具。密码修改被恢复在短短的几秒钟！对于密码打开，Excel Password Unlocker 5.0 中文版提供了三种不同的搜索方法：高级字典破解，暴力破解，以及高级强力使用面具攻击。从97到2007的Excel版本都支持。
方法一：
如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开(关掉所有程序，为了速度)：
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, ""))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub
然后在此界面直接按F5运行此宏，选择文件，等啊等。
方法二：
Excel—“撤销工作表保护密码”的破解并获取原始密码；
1、打开您需要破解保护密码的Excel文件；
2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；
3、停止录制(这样得到一个空宏)；
4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；
5、删除窗口中的所有字符(只有几个)；
6、关闭编辑窗口；
7、依次点击菜单栏上的工具---宏-----宏，选AllInternalPasswords，运行，确定两次；
8、等一会，就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。再点击确定。Excel的原始密码就被清除了。
⑸ 工作簿密码忘了怎么办
可以通过以下方法进行破解，步骤如下：
1，先找到有工作表保护密码的Excel表格，然后后缀名称，从演示操作表格.xlsx改为演示操作表格.rar：
⑹ Excel文档加密，忘记密码了如何破解
可以多试一下常用密码，大多数人设置密码一般都是设置的常用密码。或者使用密码找回的功能试一下。还可以先把密码写到记事本上，然后依次试一下。我之前有使用U盘加密超级3000加密了U盘上的文件后来忘记密码，就是将所有的密码写在记事本上一个一个的试出来的。
不要强制的破解哦。否则文件可能被损坏呢。
⑺ 怎么破解excel的密码保护
您好，方法
1、我新建一个excel文件（.xlsx格式的）来测试破解过程，其它文件可以参考，但最好要备份原来的文件,设置工作表、工作薄为密码保护，保存后。
2、打开电脑上的压缩软件，然后在菜单里选择打开压缩包，进入excel文件所在的目录，按图2所示，找到excel文件，然后打开,
3、下面介绍一下删除工作薄的密码，如下图红色箭头所指的文件，用内部阅读器打开。
4、搜索，打开搜索界面，搜索“workbookProtection”，如下图所示，把该标签的内容全部删除，
5、保存修改到压缩，
6、下面介绍一下删除工作表的密码，如下图红色箭头所指的文件，用内部阅读器打开,打下面的文件。
7、打开后，搜索“sheetProtection ”，删除整个标签的内容，保存到压缩包。
8、关掉压缩包，重新打开那个测试的excel文件，可以看到密码保护已经没有了。
⑻ Excel设的密码怎样解除
excel设置了保护工作簿，想要使用默认密码撤销工作表保护，解决方法如下。
1、首先在电脑中打开excel表格，点击“审阅”，如下图所示。