打开加密的excel

Ⅰ 打开加密的excel文件

建议您下载一款破解软件试试，不过成功的机率不是很大。

给文件加密，我使用的是超级加密3000.

超级加密3000自带的有密码恢复功能，我建议您再加密文件的时候可以试试。

Ⅱ 加密的excel文档如何打开

首先要清楚是采用了哪种加密方式？
从你所说的情况来看，是不是用过ntfs的加密（efs）？确认一下，该加密方法：文件位于ntfs格式的盘中，右击该文件，高级，加密数据以便保护数据。
如果是这种加密方式，一定要导出密钥，如果没有密钥，一旦重装系统，文件将无法解密，此处所说的无法解密虽说不是绝对无法解密，但解密的复杂程度非常大，即使微软工程师也很难做到，在微软社区有相关讨论。
另外，如果肯定没有采用过这种加密方式，检查是否是权限设置的问题，如果只是权限的问题，解决起来非常容易，右击该文件：选择“安全”，如果在“组或用户名称”中为空，需要添加当前帐号即可访问。
如果“添加”为灰色，点击“高级”，“所有者”，在“将所有者一更改为”中选择当前帐号，选择“应用”，“确定”，关闭后重新打开即可添加帐号。建议在win2003,
winxp
pro的系统下操作。

Ⅲ excel文档加密打不开怎么办

1、当excel打不开的时候我们可以下载一个WPS。这个文件也不大。能够搞定所有的office版本。。 安装好之后右键点击你要打开的表格。然后选择打开方式选择WPS表格即可！

Ⅳ 加密的excel在哪里输入密码打开

是用什么方法加密的呢？其实可以使用加密软件来加密文件是最方便的，加密后的文件在安装加密软件的电脑上是可以正常打开使用的，脱离这个环境则打不开或乱码。文件在新建、打开时就会自动加密，历史文件可手动加密。文件需要外发时得授权解密，未授权解密的文件以任何形式发出都是无法正常打开的。在不影响日常使用的情况下保障了文件的安全。

Ⅳ 无法打开加密的Excel，怎么办

你好，楼主！

只能给你提供线索了，因为我也没有解码的软件~

请下载：Advanced Office XP Password Recovery Pro

用这个就可以进行解码，操作很简单，相信你这么高智商应该难不倒你的~

绝对可用，本人亲自用过~

Ⅵ 如何打开加密的EXCEL文档

设置了保护密码而遗忘了吗？
操作前把原文件COPY一份
方法:
1.打开文件
2.工具---宏----录制新宏---输入名字如:aa
3.停止录制(这样得到一个空宏)
4.工具---宏----宏,选aa,点编辑按钮
5.删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) (1.81 KB , 下载:4646次)
6.关闭编辑窗口
7.工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等二分钟,再确定,就没有密码了。

Ⅶ 怎样用wps打开加密的excel文档

1、先破解，可以查找Office Password Recovery Toolbox 。用这个很多可以破解
2、破解完了直接打开就好了

Ⅷ 加密excel文件怎么打开

如果是想要打开电脑中已经加密的excel文件的话可以通过向管理端提交文件解密申请，通过申请后的文件员工就能正常打开了，当然了，这种情况是用域之盾加密文件后查看文件的方法，应该大同小异，你可以看下。

Ⅸ 如何打开已加密的电子表格

按Alt+F11进入VBA编辑器——新建模块——输入以下代码——运行代码即可解密

Attribute VB_Name = "解锁程序"
Option Explicit

Public Sub 解锁程序()
' 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