VBA - O que este código faz?

[marlonsaveri]

Não entendi a seguinte subrotina:

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

[Executor]

Difícil dizer vendo só esse pedaço.

O programa completo faz o que?

[marlonsaveri]

Não pertence a um programa, é apenas o exemplo de um tutorial, mas não o entendi.

Para cada "n" em Worksheets ( i ).UsedRange (?), se for numérico e diferente de zero, então recebe zero e depois vem esse "ProtectedCell" (??) e, se o erro for o 1005, chama Resume ProtectedCell (???)

[leno mota]

Entra em loop para testar o valor da celula citada aima. Se zero, proteje a celula.

Importante é tratamento do erro <On Error GoTo errorHandler> Muito eficaz no que diz respeito a erro de tipo de dados inseridos por usuarios...

Realmente essa parte do programa não faz grande coisa, mas o conjunto deve ser bom...

Espero ter ajudado.