Benutzer-Werkzeuge

Webseiten-Werkzeuge


kb:software:msexcel:blattschutz-aufheben

Blattschutz aufheben

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

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
kb/software/msexcel/blattschutz-aufheben.txt · Zuletzt geändert: 2012/12/18 19:48 (Externe Bearbeitung)