Willkommen bei den Kohberg's

Sie haben eine Excel Tabelle mit aktiviertem Blattschutz und haben das Kennwort vergessen?

Hatte ich heute morgen wieder bei einer netten Kollegin, der man dann gerne hilft.

• Öffnen Sie die geschützte Tabelle, drücken Sie die Tastenkombination Alt + F11` und klicken Sie im sich öffnenden Menü mit der rechten Maustaste auf `Diese Arbeitsmappe`, dann auf `Einfügen` und `Modul.
• Im Fenster Modul1` fügen Sie den nachfolgenden Text ein:

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

• Schließen Sie dann das Fenster `Microsoft Visual Basic`.
• Drücken Sie nun die Tastenkombination Alt + F8 und klicken Sie im nächsten Fenster auf `Ausführen`.

Haben Sie die Tabelle mit einem kurzen Kennwort geschützt, dauert der Vorgang nur wenige Sekunden. Bei sehr komplizierten Kennwörtern kann es deutlich länger dauern. Sobald `Blattschutz abgeschaltet` erscheint, klicken Sie auf `OK`.

Diese Anleitung habe ich hier gefunden.