取消Excel密碼保護

當Excel發生有部分使用者可以編輯檔案,大多數使用者無法編輯的問題。

通常都是Excel密碼保護的原因! Excel可以做到儲存格的密碼保護。

那要如何 取消/解鎖 呢?

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

6、破解完成囉!這時候密碼應該會出現在儲存格第1格位置。

補充、程式碼下載

Leave a Comment

發佈留言必須填寫的電子郵件地址不會公開。

這個網站採用 Akismet 服務減少垃圾留言。進一步了解 Akismet 如何處理網站訪客的留言資料