打開加密的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