Schutz aufheben
07.10.2003 12:03:32
Stefan
Warum kann man den Schutz mit "zwei" unterschiedlichen Passwörtern aufheben?
Sub schutzaufheben()
On Error Resume Next
For I = 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 r = 65 To 66
For s = 65 To 66
For t = 32 To 126
ActiveWorkbook.Unprotect (Chr(I) + Chr(k) + Chr(l) + Chr(m) + Chr(n) + Chr(o) + Chr(p) + Chr(r) + Chr(s) + Chr(t))
Next t
Next s
Next r
Next p
Next o
Next n
Next m
Next l
Next k
Next I
End Sub
Danke
Stefan