☰

Microsoft Excel-Kennwort

tag-icon • tag-icon microsoft-excel passwords
Microsoft Excel-Kennwort

Ich habe zwei Excel-Dateien, die ich vor etwa einem Jahr erstellt habe. Beide Dateien sind geschützt.

  • Eine Excel-Datei kann ohne Eingabe des korrekten Passworts nicht geöffnet/bearbeitet werden.
  • Und in einer anderen Excel-Datei ist der Blattschutz für einige bestimmte Zellen aktiviert.

Ich habe einige Tools zur Wiederherstellung beider Arten von Passwörtern heruntergeladen, aber keines davon hat erfolgreich funktioniert. Außerdem hatte ichExcel-Passwortwiederherstellung. Das in diesem Link erwähnte Tool hat nicht funktioniert.

Bitte lassen Sie mich wissen, wie ich das Problem beheben kann.

Grüße

InTech

Antwort1

Versuchen Sie Folgendes für die Datei, die Sie öffnen KÖNNEN.

Wenn „Entwickler“ nicht in Ihrer Symbolleiste angezeigt wird:

Klicken Sie auf die Microsoft Office-Schaltfläche (Office-Schaltflächenbild) und dann auf Excel-Optionen, PowerPoint-Optionen oder Word-Optionen.

Klicken Sie auf „Beliebt“ und aktivieren Sie dann das Kontrollkästchen „Entwicklerregisterkarte in der Multifunktionsleiste anzeigen“.

Drücken Sie Alt+F11 (oder klicken Sie auf der Registerkarte „Entwickler“ auf Visual Basic), um den VBA-Editor aufzurufen. Erstellen Sie ein neues Makro, indem Sie auf den Pfeil neben der Schaltfläche mit dem Lineal klicken: Modul erstellen

Kopieren Sie den folgenden Code und fügen Sie ihn in Ihr neues Modul ein:

    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

Zum Speichern Strg+S drücken, dann den VBA-Editor schließen.

Gehen Sie in Ihrer Arbeitsmappe zur Registerkarte „Entwickler“ und klicken Sie auf „Makros“. Wählen Sie „PasswordBreaker“ und klicken Sie auf „Ausführen“.

Ich habe dies in einigen verschiedenen Arbeitsblättern getestet und es scheint zu funktionieren. Bei Ihnen kann es anders sein.

verwandte Informationen