leider habe ich wohl ein falsches Passwort hinterlegt.
Ich hatte für dieses Problem dieses Makro, welches jetzt aber nicht funktionieret.
Sub SchutzEntfernen()
Dim i, k, m, o, q, s, j, l, n, p, R, t
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 "Blattschutz abgeschaltet"
End Sub
Was muss ich da ändern ?mfg walter