excel加密后忘记密码怎么办

‘壹’ EXCEL文件上加密了，可是忘记了密码，怎么办

楼主的是暴力破解器，如果你设置的密码超过8+的话
那就很难破解！
office密码破解器
office
password
remover
v1.0.0.2
这个也许可以帮助你

‘贰’ 对于excel加密文件，忘记密码了怎么办

可以联系加密软件的客服或者开发人员试试，我之前也遇到过这样的事情。

我之前用的文件夹保护3000，可以对文件夹进行加密码、隐藏和伪装保护，方便快捷地帮您解决重要文件夹的保密问题。

软件保密性好。文件夹加密码后，打开文件夹要输入正确密码，而且在任何环境下均不失效。文件夹隐藏后，在任何环境下不通过本软件无法找到。文件夹伪装后就变成了伪装的对象，即便打开也看不到文件夹里原有的文件。

软件对文件夹加密码、隐藏或伪装时速度特别快，无论文件夹大小。软件采用的是成熟、优秀的数据保护技术，安全性高。加密码文件夹使用完毕后，会自动恢复到加密码状态，无须再次加密码。

‘叁’ excel表格加密文档忘记密码怎么办

楼主的这个情况要分2种情况：

第一是在办公软件中设置加密密码的，只要记住密码就可以了，如果忘记的话尽量想起来，实在不行那就看之前有没有备份，或者重新制作了。

第二就是采用了绿盾文件加密软件加密或者是其他的品牌的加密软件；

• 如果是管理员的权限，直接右键加密菜单就会看到“批量解密”，直接点“批量解密”即可；

• 如果是员工的权限，将加密的ppt文件申请解密，管理员同意后即可解密了。

‘肆’ Excel加密了，忘记密码，怎么打开

xls表格加密后,密码忘记了，这个要看您用什么方法加密的，然后联系这个加密方法的客服，看看这个问题该怎么解决。
给文件加密，我用的是文件夹加密超级大师。
文件夹加密超级大师的闪电和隐藏加密自带的有密码恢复功能，我建议您可以试试。

‘伍’ Excel加密了，忘记密码，怎么打开

excel密码忘记了怎么办【方法介绍】
(1)EXCEL文件的加密： 1、先来看看如何针对EXCEL文件进行加密，首先打开要加密的EXCEL文件，然后选择菜单的“文件”->“另存为”，在打开的“另存为”窗口中选择右上角的“工具”->“WEB选项”
2：之后就会自动弹出一个窗口，里面包括了对打开权限密码以及修改权限密码的设置选项，添加对应密码后确定即可。和WORD文档加密一样需要确认输入的密码，确认后关闭保存窗口。
3：这样每次打开该EXCEL文件后都会首先弹出打开密码输入对话框，只有输入正确的密码才能够查看里面的内容。通过以上几步完成了对EXCEL文档的加密工作。那么excel密码破解方法有哪些呢?
(2)EXCEL文档密码破解不求人

‘陆’ 如何解锁excel中的密码忘了怎么办

Excel保护密码若是忘记，可通过以下步骤进行解锁：

所需材料：解压软件（这里用的WINRAR）、Excel2007演示。

一、下图中这个表格文件被保存，双击表格内单元格内会弹出该表格为只读，那么开始破解该表格。

注意事项：

1、第五步查找的内容“sheetPro”中，“P”必须是大写，其他字母必须全部为小写，否则找不到。

2、第六步选中的是“sheetPro”所在尖括号内的全部内容，包含尖括号。

3、若是使用能够在压缩包内修改的压缩软件，第三步可跳过，直接在压缩包内进行修改。

‘柒’ Excel的保护密码忘记了怎么办，急用

有两种方法可以解决：

方法1：使用密码破解程序破解。以下为具体方法：

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

再用该密码给保护，原来使用者的密码同样能打开。

方法2：使用压缩包解决。

• 将文件后缀名改为RAR。

• 打开压缩包文件，找到一个xml文件，用文本方式打开。

• 打开之后，找到代码pssword 语句，将该句删掉。

• 再将后缀名改为xls，再打开就没有密码了。

‘捌’ excel设置的密码忘记了怎么办

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

‘玖’ excel锁定后忘记密码怎么办

excel锁定后忘记密码的解决办法
首先打开设置了工作表保护的表格，可以看到，当我们试图编辑时，会弹出这样的对话框。
这时如果我们忘记了密码，可以使用宏命令来将密码显示出来，然后输入正确的密码即可。具体操作时，要先将宏命令的相关工具按钮调出来。单击文件——选项——自定义功能区——在“开发工具”前打勾——确定。
单击工具栏——开发工具——宏，新建宏。然后保存。
编辑该宏，复制下列代码粘贴到宏的内容中去。
Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
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
ActiveSheet.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 ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
保存之后，运行该宏，即可弹出显示密码的窗口。单击确定，然后输入密码即可实现解锁。
如果点击宏时出现错误提示，则可能是因为你的excel没有启用宏。操作方法如下：单击文件——选项——信任中心——信任中心设置——宏设置——点启用所有宏。然后确定。

‘拾’ excel加密后忘记密码了，怎么办

只要知道密码特征，根据组合遍历尝试，一般情况下是可以解密的。

举例说明。

将文件sample保存为带密码的文件，密码设置为“123”。如图：

说明：1、这段程序仅适用于纯数字的密码；

2、如果知道密码的基本特征，对上述代码进行适当的修改，基本也可以实现。