Protect Methode fehlerhaft bei Blattschutz

mit diesem Modul setze ich den Blattschutz in meinem Excel Workbook für alle Tabellen. Überwiegend funktioniert die Funktion auch. Leider bekomme ich manchmal einen Laufzeitfehler 1004 - dass die Protect Methode fehlerhaft ist, oder das die Protect eigenschaft nicht gelesen werden konnte.
Hatte das Problem schonmal jmd. von EUch?

Gruss,
Torsten

Sub Blattschutz()
'Das Modul setzt den Blattschutz für alle Tabellenblätter
Application.ScreenUpdating = False
Dim I As Integer
For I = 1 To Worksheets.Count

If Sheets(I).Protect = False Then Sheets(I).Protect
Next I
Application.ScreenUpdating = True


End Sub