破解Excel密碼保護 取消保護工作表 成功啟動編輯

 

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

當下是研判應該是Excel密碼保護的原因，Excel可以做到儲存格層級的密碼保護，還可以定義哪些儲存格是可以用密碼保護、哪些不用密碼保護、哪些使用者(AD也可)在存取這個儲存格時不需要密碼。

當做修改儲存格標題的資料時，會出現:

您要變更的儲存格或圖表已被保護，無效更改。若要修改被保護的儲存格或圖表，請先使用[取消保護工作表]命令([校閱]索引標籤，[變更]群組)來移除保護。可能會提示您輸入密碼。

要取消保護工作表跟保護活頁簿都是要密碼才能變更儲存格裡面的資料

如何在不知道密碼的時候，解除保護呢? 可依照下面的步驟執行來破解

1.          新增一個巨集，按一下上面的【檢視】→【巨集】→【錄製巨集】

2.          確認巨集是儲存在【現用活頁簿】，且目前開啟的活頁簿是要被破解的

3.          接著我們檢視這個新增的巨集

4.       點擊編輯

5.          將下方的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