Wie kann man ein verlorenes Kennwort zum Schutz eines Excel-Arbeitsblatts wiederherstellen?
Wir legen stets Kennwörter fest, um wichtige Arbeitsblätter vor versehentlichen Änderungen oder Beschädigungen durch andere zu schützen. Doch was tun Sie, wenn Sie Ihr Kennwort vergessen haben? Glücklicherweise unterstützt Excel bestimmten VBA-Code, mit dem Sie Ihr verlorenes Arbeitsblattschutzkennwort wiederherstellen können. So lösen Sie dieses Problem:
Verlorenes Arbeitsblattschutzkennwort in Excel mithilfe von VBA-Code wiederherstellen
Verlorenes Arbeitsblattschutzkennwort in Excel mithilfe von VBA-Code wiederherstellen
Der folgende VBA-Code hilft Ihnen, Ihre ursprünglichen Kennwörter in einem Arbeitsblatt schnell zu entfernen.
1. Öffnen Sie das zuvor geschützte Arbeitsblatt.
2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Verlorenes Arbeitsblattschutzkennwort 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 anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld – klicken Sie auf OK, um es zu schließen, und die Kennwörter des geschützten Arbeitsblatts werden sofort aufgehoben.
Hinweise:
1. Mit diesem Code können Sie jeweils nur das Schutzkennwort eines einzelnen Arbeitsblatts wiederherstellen. Falls mehrere geschützte Arbeitsblätter vorhanden sind, müssen Sie diesen Code nacheinander auf jedes einzelne anwenden.
2. Der obige Code stammt von http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.
Verwandte Artikel
Wie können Sie mehrere Arbeitsblätter in Excel gleichzeitig schützen?
Wie hebt man den Schutz mehrerer Arbeitsblätter in Excel gleichzeitig auf?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins