Re: Blattschutz aufheben (Kennwort vergessen)
22.10.2002 17:21:21
Regina
Hallo Pi,
Hab ich selbst irgendwoher, allerdings noch nicht getestet
kannst es gern probieren.
Blattschutz mit unbekanntem Passwort entfernen So einfach und primitiv und schon hat der Blattschutz keinen Wert mehr :-(
Leider ist mir der Ersteller des Makros nicht bekannt
Sub PW_löschen()
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
End Sub
Gruß regina