☰

Microsoft Excel 密碼

tag-icon • tag-icon microsoft-excel passwords
Microsoft Excel 密碼

我有兩個大約一年前創建的 Excel 文件。這兩個文件都受到保護。

  • 如果不輸入正確的密碼，則無法開啟/編輯一個 Excel 檔案。
  • 在另一個 Excel 檔案中，在某些特定儲存格上啟用了保護工作表。

我下載了一些用於恢復這兩種類型密碼的工具，但沒有一個工具成功運行。我也曾經歷過Excel 密碼恢復。此連結中提到的工具不起作用。

請告訴我，如何解決？

問候

英泰克

答案1

對於您可以開啟的文件，請嘗試此操作。

如果您在工具列中沒有看到「開發人員」：

按一下 Microsoft Office 按鈕 Office 按鈕圖片 ，然後按一下「Excel 選項」、「PowerPoint 選項」或「Word 選項」。

按一下“流行”，然後選取“功能區中的顯示開發人員標籤”複選框。

按 Alt+F11（或按一下「開發人員」標籤中的「Visual Basic」）以開啟 VBA 編輯器。透過點擊帶有標尺的按鈕旁邊的箭頭來建立一個新巨集： 建立模組

複製以下程式碼並將其貼上到您的新模組中：

    Sub PasswordBreaker()
    'Author unknown
    'Breaks worksheet password protection.
    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)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub

Ctrl+S 儲存，然後關閉 VBA 編輯器。

在您的工作簿中，轉到開發人員標籤並點擊巨集。選擇PasswordBreaker並點選執行。

我已經在幾個不同的工作表中對此進行了測試，它似乎可以解決問題。你的旅費可能會改變。

相關內容