AW: Passwort vergessen.
13.07.2004 10:33:57
Harald
Hallo Pelmich,
ich weiß nicht, ob Excel 2003 einen verschärften Blattschutz hat. Ein Versuch mit diesem Code aus meinem Fundus kann nicht schaden. In der 2000er Version klappt es damit.
Rechte Maus auf Tabellenblatt, Code anzeigen. Diesen Code einfügen, Cursor in den Code setzen und F5.
Sollte er ewig lang laufen...mit Strg+Pause abbrechen. Dann klappts wohl nicht damit.
Sub Makro1()
Dim i, j, k, l, m, n, o, p, q, r, s, t As Integer
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 "Der Blattschutz ist aufgehoben!!!"
End Sub
Gruß
Harald