Man hat ein (MS) Excel Dokument vor sich und möchte gerne etwas daran ändern. Leider hat ist das Dokument mit einem Kennwort geschützt und das Kennwort hat man natürlich vergessen – was nun?
Mittels eines kleinen Macro lässt sich der Blattschutz in wenigen Klicks und ohne besondere Kenntnisse oder Hacking Skills aufheben und man kann das Dokument wieder editieren.
Wir erstellen ein kleines Makro, welches das Passowort mittels einer Brute Force Attacke “errät”. Das geht in wenigen Schritten.
- Das Excel Dokument öffnen.
- Tastenkombination Alt + F11 drücken
- Im sich öffnenden Menü mit der rechten Maustaste auf “Diese Arbeitsmappe” klicken und dann auf “Einfügen” und “Modul”.
- Im Fenster “Modul1” folgenden Text kopieren:
Sub SchutzEntfernen()
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 n = 65 To 66
For o = 65 To 66: For p = 65 To 66
For q = 65 To 66: For r = 65 To 66
For s = 65 To 66: For t = 32 To 126
ActiveSheet.Unprotect Chr(i) & _
Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(n) & Chr(o) & _
Chr(p) & Chr(q) & Chr(r) & _
Chr(s) & Chr(t)
Next t: Next s: Next r: Next q
Next p: Next o: Next n: Next m
Next l: Next k: Next j: Next i
MsgBox "Blattschutz abgeschaltet"
End Sub- Das Fenster “Microsoft Visual Basic” schließen.
- Die Tastenkombination Alt + F8 drücken und das eben erstellte “SchutzEntfernen” ausführen
Ist die Tabelle mit einem kurzen Kennwort geschützt, dauert der Vorgang nur wenige Sekunden. Bei sehr langen und komplexen Kennwörtern kann es deutlich länger dauern.
- Sobald “Blattschutz abgeschaltet” erscheint, kann man auf “OK” klicken und das Excel Dokument ohne Blattschutz speichern.
gefunden bei: http://ulrichhanke.de