VBA/Excel/Access/Word/Excel/Cell Protected

Protected cell error

   <source lang="vb">

Sub ResetValues2()

   For i = 1 To Worksheets.Count
   On Error GoTo errorHandler
       For Each n In Worksheets(i).UsedRange
           If IsNumeric(n) Then
               If n.Value <> 0 Then
                    n.Value = 0
   ProtectedCell:
               End If
           End If
       Next n
   errorHandler:
       If Err = 1005 Then
            Resume ProtectedCell
       End If
   Next i

End Sub

</source>