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

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

Nun gibt es zwei Lösungen:

1. Lösung: 

  * Löschen einfach die gesamte obige Zeile von "<" bis ">". 
  * Speichern Sie die Datei.
  * GANZ WICHTIG: "Kopieren" Sie nun die Datei aus dem entpackten Ordner wieder in die ZIP-Datei!
    * Erstellen Sie also KEINE neue ZIP-Datei. Diese erzeugt nämlich einen Fehler!
  * Benennen Sie die Datei dann wieder um in .xlsx
  * Nun ist der Blattschutz gelöscht.


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.

<code>

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

</code>