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有密碼保護想要開啟還有不懂得使用者就可以根據小編的方法來操作,希望能夠幫助到大家。
相關文章
- Word文件密碼保護怎麼解除?密碼
- 如何刪除word文件密碼保護 解除word文件保護密碼密碼
- word怎麼取消開啟文件的保護密碼 word文件刪除密碼保護密碼
- win10怎麼開excel保護色_win10如何設定excel綠色保護色Win10Excel
- win10 bitlocker怎麼清除硬碟密碼保護_win10硬碟bitlocker解除密碼詳細步驟Win10硬碟密碼
- win10怎麼強制解除電腦開機密碼 強制解除win10開機密碼Win10密碼
- win10系統如何關閉密碼保護共享Win10密碼
- Excel怎麼設定保護公式?Excel保護公式操作方法教程Excel公式
- win10 xls表格密碼忘了怎麼辦 win10excel忘記密碼如何開啟Win10密碼Excel
- win10如何禁用增強保護_win10怎麼禁用系統保護Win10
- 線上去除PDF密碼保護密碼
- 電腦開機密碼忘記了打不開怎麼辦win10 強制解除win10開機密碼密碼Win10
- 如何為OSX備忘錄新增密碼保護?密碼
- 6個使用KeePassX保護密碼的技巧密碼
- Gawker攻擊事件暴露密碼保護缺陷事件密碼
- 600萬密碼洩露之後,我們該如何保護自己的密碼?密碼
- win10怎麼啟用DEP資料執行保護_win10系統資料執行保護怎麼開啟Win10
- 如何使用密碼保護以太坊JSON-RPC的API?密碼JSONRPCAPI
- win10 保護眼睛的方法 win10 保護眼睛怎麼設定Win10
- excel密碼忘記了怎麼解鎖 excel忘記密碼怎樣簡單找回Excel密碼
- win10如何修改開機密碼_win10開機密碼怎麼更改Win10密碼
- win10怎麼設密碼_如何設定開機密碼win10Win10密碼
- 我國啟動新型資料保護密碼演算法研究密碼演算法
- win10開機密碼怎麼取消_win10開機密碼如何關閉Win10密碼
- 怎麼取消win10開機密碼_如何關閉win10開機密碼Win10密碼
- win10桌面眼睛保護模式怎麼開啟_win10設定電腦眼睛保護模式步驟Win10模式
- win10平板忘記密碼如何解碼_平板win10忘記密碼強制重置Win10密碼
- 如何取消win10開機密碼_win10怎麼取消電腦開機密碼Win10密碼
- word文件加密忘了密碼怎麼開啟 word文件解除密碼的方法加密密碼
- win10密碼忘記怎麼清除密碼 win10重置開機密碼Win10密碼
- win10 excel開啟亂碼怎麼辦_win10系統excel顯示亂碼應該如何解決Win10Excel
- HarmonyOS Next中密碼類資料保護場景解析密碼
- Easy App Locker for Mac(Mac應用密碼保護軟體)APPMac密碼
- 共享印表機有密碼怎麼連線 win10共享印表機需要密碼密碼Win10
- win10如何禁用開機密碼_win10怎麼關閉開機登入密碼Win10密碼
- win10開機密碼忘了沒有u盤怎麼辦Win10密碼
- win10系統怎麼取消開機密碼_如何取消電腦開機密碼win10Win10密碼
- win10系統如何取消開機密碼 win10怎麼關閉登入密碼Win10密碼