ich habe letztens das Web etwas durchstöbert und bin auf das hier gestoßen
Sub Blattschutz_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)
If Sheets("Tabelle1").ProtectContents = False Then GoTo ende
Next t
Next s
Next r
Next q
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
ende:
MsgBox Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _
Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t)
End Sub
den GoTo hab ich gesetzt, weil ich wissen wollte was er da wirklich ausgerechnet hat.Kann mir mal Bitte einer Erklähren, wieso das funktioniert?
hab das mal ausprobiert.
Das Blatt hatte 55 als Kennwort und als ergebniss hatte mir das toll AAAAABAAA.. oder so ausgegeben?
Gruß
Dirk