Lås ark og diagram med macro

Jeg har fundet følgende kode til at låse alle ark:

Sub protecting()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
  s.Protect "password"
Next
End Sub

Koden fungerer fint, men der opstår et problem når regnearket indeholder et diagram. Når koden når til diagrammet returnerer den en "run-time 13" fejl.

Kan makroen udbygges til også at finde og låse diagrammer?