====== 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:
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