Blattschutz aufheben / Arbeitsmappenschutz aufheben

1. Problem:
Ein Excel-Tabellenblatt ist per Blattschutz und oder einem Arbeitsmappenschutz geschützt. Der Blattschutz kann nur mit einem Passwort aufgehoben werden. Das Passwort ist jedoch verloren gegangen.

1. Lösung:

• Benennen Sie die Dateiendung von .xlsx in .zip um.
• Öffnen Sie die ZIP-Datei und entpacken Sie den Inhalt in einen neuen Ordner.
• Blattschutz aufheben:
  • Wechseln Sie in den Ordner „xl“ und dann in den Unterordner „worksheets“.
  • Dort finden Sie die Dateien sheet1.xml, sheet2.xml etc.
  • Öffnen Sie die Datei in einem Texteditor.
  • Suchen Sie nach „protection“.
  • Sie erhalten dann die Zeile:

<sheetProtection algorithmName="SHA-512" hashValue="iqZi50CVJsi8Aws6LLtWEQ8tUqShUq8AAYCfE+dZ581CM4GGMR4Y5eKVrfesXuCPyIWuK200luUxrwOiOfZ1TQ==" saltValue="o/anAhP6CkOABGszDUWc2w==" spinCount="100000" sheet="1" objects="1" scenarios="1"/>

Nun gibt es zwei Lösungen:

1. Lösung:

• Löschen einfach die gesamte obige Zeile von „<“ bis „>“. Speichern dann und zippen alles wieder in eine Datei und benennen die Datei dann wieder um in .xlsx

2. Lösung:

Manchmal funktioniert das nicht, dann hilft folgende Vorgehensweise:

• Erstellen Sie eine leere Excel-Datei und schützen Sie das Blatt mit dem Passwort „test“.
• Speichern Sie die Datei und kopieren Sie die o.g. Zeile aus der entpackten Datei heraus.
• Ersetzen Sie in der passwortgeschützten Datei die Zeile durch diese.
• Sie können nun die Datei öffnen und das Passwort „test“ verwenden.

Wo finde ich das Arbeitsblattpasswort?

• Das Arbeitsblatt-Passwort finden Sie auf die gleiche Art und Weise:
• im Ordner „xl“
• in der Datei „workbook.xml“.

2. Problem:
Ein Excel-Tabellenblatt ist per Blattschutz geschützt. Der Blattschutz kann nur mit einem Passwort aufgehoben werden. Das Passwort ist jedoch verloren gegangen.

2. Lösung:
Folgendes Makro kann im Blatt hinterlegt werden und anschließend ausgeführt werden. Danach ist der Blattschutz (inkl. Passwort) aufgehoben.
Lösung gilt für: Excel 2007, Excel 2010.

Sub Blattschutz_aufheben()

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 ist nun aufgehoben. Sie können nun die Formeln einsehen."
 
End Sub