破解Excel密碼保護

2012-04-18

211869
0
Office

破解Excel密碼保護

昨天朋友問了我這個問題

他們公司的Excel有發生部份使用者可以編輯、大部份使用者無法編輯的問題

當下是研判應該是Excel密碼保護的原因

因為從沒用過Excel的密碼保護，所以我本來也不知道原來密碼保護可以做到儲存格層級的密碼保護

還可以定義哪些儲存格是可以用密碼保護、哪些不用密碼保護、哪些使用者(AD也可)在存取這個儲存格時不需要密碼

接著來看看我當時去模擬他們使用者的動作，去做修改儲存格標題的資料時，發生的現象

上面可以看到，取消保護工作表跟保護活頁簿都是反灰的，卻會出現要你【取消保護工作表】

那試看看編輯其他非標題的欄位好了，卻出現要密碼才能變更儲存格裡面的資料

再來試著編輯看看活頁簿的部份，也是有設定保護(保護的真徹底…)

確定是被Excel密碼保護的功能鎖住了，問我朋友密碼知不知道，得到的回應就是：【沒人知道】

那問題總要解決，畢竟這不是他們公司唯一一個有密碼保護的Excel，而是有非常多個，當然還是要一個一個解

在不知道密碼的時候，解法有分成兩種

第一種就是適用於解除【工作表】層級的密碼保護，這可以使用巨集的方式跟增益集來解決，這個案例我是使用巨集

下面就是VBA的語法，需要新增到巨集中，等等會解釋怎麼使用

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

第二種就適用於【活頁簿】層級的密碼保護，這需要使用增益集的方式去解決，沒辦法使用巨集

因為這是它人開發的，我在此就只貼上連結http://www.straxx.com/excel/password.html

如果覺得它對你有幫助，你要樂捐感謝他也可以