win10 excel有密碼保護怎麼強制開啟_win10 excel有密碼保護如何解除
在使用win10系統進行辦公過程中,使用者常常會使用excel工具進行一些表格的製作,以此來方便自己工作中的需要,但是近日有些使用者在使用win10系統開啟excel會有密碼保護的情況出現,許多使用者在不知道密碼的前提下也都不知道如何開啟,那麼win10 excel有密碼保護怎麼強制開啟呢?這裡就來教大家win10 excel有密碼保護解除操作步驟。
推薦下載:win10專業版下載64位
具體方法:
1、開啟加密的 Excel,然後用快捷命令Alt+F8 開啟巨集命令 視窗,如圖所示:
2、在巨集名一欄中 輸入巨集的名字 隨意健入,如圖:
3、輸入完巨集名後 建立的按鈕就亮了 點選建立 我們就看到了新介面,如圖:
4、將編輯框內的Sub knife( )End Sub刪除 將下列程式碼 複製 上去:
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 '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
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
5、關閉【巨集視窗】回到Excel,按下ALT+F8組合鍵重新開啟【巨集命令視窗】,如圖所示:
6、你會發現 你前面輸入的巨集名 變成了AllInternalPasswords 點選【執行】 會出現全英文的提示框,一直點選【確定】即可;
7、一直點 確定 直到不在 出現對話方塊為止。
等一段之系統會 再次跳出對話方塊 再點確定 保護就破解成功,重新開啟Excel表格即無需輸入密碼!
以上就是win10 excel有密碼保護解除操作步驟了,對於excel有密碼保護想要開啟還有不懂得使用者就可以根據小編的方法來操作,希望能夠幫助到大家。
相關文章
- EXCEL工作表保護密碼破解Excel密碼
- Word文件密碼保護怎麼解除?密碼
- 如何刪除word文件密碼保護 解除word文件保護密碼密碼
- win10怎麼開excel保護色_win10如何設定excel綠色保護色Win10Excel
- word怎麼取消開啟文件的保護密碼 word文件刪除密碼保護密碼
- win10 bitlocker怎麼清除硬碟密碼保護_win10硬碟bitlocker解除密碼詳細步驟Win10硬碟密碼
- win10怎麼強制解除電腦開機密碼 強制解除win10開機密碼Win10密碼
- labview密碼保護方式及如何保護labview密碼不被破解View密碼
- Excel怎麼設定保護公式?Excel保護公式操作方法教程Excel公式
- 如何破解Word文件密碼保護密碼
- win10系統如何關閉密碼保護共享Win10密碼
- win10如何禁用增強保護_win10怎麼禁用系統保護Win10
- win10 xls表格密碼忘了怎麼辦 win10excel忘記密碼如何開啟Win10密碼Excel
- Win10系統怎麼設定bios密碼保護電腦安全Win10iOS密碼
- 智取螢幕保護密碼(轉)密碼
- 如何為OSX備忘錄新增密碼保護?密碼
- 電腦開機密碼忘記了打不開怎麼辦win10 強制解除win10開機密碼密碼Win10
- Excel密碼解除方法 破解Excel密碼
- win10怎麼啟用DEP資料執行保護_win10系統資料執行保護怎麼開啟Win10
- win10 保護眼睛的方法 win10 保護眼睛怎麼設定Win10
- Gawker攻擊事件暴露密碼保護缺陷事件密碼
- 6個使用KeePassX保護密碼的技巧密碼
- win10桌面眼睛保護模式怎麼開啟_win10設定電腦眼睛保護模式步驟Win10模式
- 600萬密碼洩露之後,我們該如何保護自己的密碼?密碼
- Excel2013怎麼設定開啟密碼?Excel密碼
- Win8.1/Win10版OneNote升級支援密碼保護功能Win10密碼
- 基於鹽+Sha演算法的安全密碼保護機制演算法密碼
- win10如何修改開機密碼_win10開機密碼怎麼更改Win10密碼
- win10怎麼設密碼_如何設定開機密碼win10Win10密碼
- 我國啟動新型資料保護密碼演算法研究密碼演算法
- excel密碼忘記了怎麼解鎖 excel忘記密碼怎樣簡單找回Excel密碼
- WPS文字中的表格也保護密碼功能密碼
- 從QQ登入方式想到的QQ密碼保護密碼
- 怎麼取消win10開機密碼_如何關閉win10開機密碼Win10密碼
- win10開機密碼怎麼取消_win10開機密碼如何關閉Win10密碼
- win10密碼忘記怎麼清除密碼 win10重置開機密碼Win10密碼
- 如何使用密碼保護以太坊JSON-RPC的API?密碼JSONRPCAPI
- 如何取消win10開機密碼_win10怎麼取消電腦開機密碼Win10密碼