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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins