AW: Arbeitsmappenschutz entfernen!
05.01.2006 14:54:08
Holger
Hallo,
habe das so abgeändert. Klappt nur leider nicht, noch eine Frage für normalen Blattschutz: Kann man auch das Passwort welches vorhanden war ausgeben. So wie hier kommt nur AABAAB ...
Sub Schutz_entfernen()
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
ActiveWorkbook.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 ActiveWorkbook.ProtectContents = False Then
MsgBox "Schutz entfernt, Code war: " + Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _
Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t)
Exit Sub
End If
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
Wäre nochmal für Hilfe dankbar
MfG
Holger Wächter