Guten Morgen,
ich habe letztens nach einer Möglichkeit gesucht den vorhandenen Blattschutz aus einer Excel-Tabelle zu entfernen, da keiner mehr das Kennwort kannte. Hier nun eine Möglichkeit:
- Die geschützte Tabelle öffnen und die Tastenkombination Alt + F11 drücken.
- Im sich öffnenden Menü mit der rechten Maustaste auf „Diese Arbeitsmappe“, dann auf „Einfügen“ und „Modul“.
- Im Fenster „Modul1“ folgenden Text einfügen:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
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.
Durch die Tastenkombination „Alt + F8“ und „Ausführen“ wird das Script ausgeführt. Ist die Tabelle mit einem kurzen Kennwort geschützt, dauert der Vorgang nur wenige Sekunden. Bei sehr komplizierten Kennwörtern kann es schon etwas länger dauern. Wenn „Blattschutz abgeschaltet“ erscheint, dieses mit einem Klick auf „OK“ bestätigen.
Nun kann die Ihre Tabelle wieder bearbeiten werden.
Hinweis: Da die Funktion nur selten gebraucht wird, sollte sie anschließend wieder aus Excel entfernt werden. Dazu wieder „Alt + F11“ und mit der rechten Maustaste auf „Modul1“ klicken, in der Liste den Eintrag „Entfernen von Modul1 …“ wählen und die folgende Frage „Modul1 vor dem Entfernen exportieren?“ per Klick auf „Nein“ quittieren. Schließen Sie dann das Fenster „Microsoft Visual Basic“.