Wie kann man ein verlorenes Arbeitsblattschutz-Passwort in Excel wiederherstellen?

Wir setzen immer Passwörter, um einige wichtige Arbeitsblätter vor Zerstörung oder Änderung durch andere zu schützen. Aber wenn Sie Ihr Passwort vergessen, was können Sie tun? Glücklicherweise unterstützt Excel einige VBA-Codes, um Ihr verlorenes Arbeitsblattschutz-Passwort wiederherzustellen. Sie können dieses Problem wie folgt lösen:

Verlorenes Arbeitsblattschutz-Passwort in Excel mit VBA-Code wiederherstellen

Verlorenes Arbeitsblattschutz-Passwort in Excel mit VBA-Code wiederherstellen

Der folgende VBA-Code kann Ihnen helfen, Ihre ursprünglichen Passwörter in einem Arbeitsblatt schnell aufzuheben.

1. Öffnen Sie Ihr Arbeitsblatt, das zuvor geschützt wurde.

2. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Verlorenes Arbeitsblattschutz-Passwort wiederherstellen

Sub PasswordRecovery()
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

4. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und ein Dialogfeld wird angezeigt. Klicken Sie auf OK, um es zu schließen, und Ihre Passwörter des geschützten Arbeitsblatts werden sofort aufgehoben.

Hinweise:

1. Mit diesem Code können Sie jeweils nur ein Arbeitsblattschutz-Passwort wiederherstellen. Wenn es mehrere geschützte Arbeitsblätter gibt, müssen Sie diesen Code nacheinander anwenden.
2. Der obige Code stammt von http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.

Verwandte Artikel

Wie kann man mehrere Arbeitsblätter gleichzeitig in Excel schützen?

Wie kann man mehrere Arbeitsblätter gleichzeitig in Excel entsperren?