EXCELer

Por vezes, podemos ter necessidade de limpar o conteúdo de determinadas células que se encontram desprotegidas numa worksheet com protecção, para termos a possibilidade de as preencher novamente com novos valores:



O resultado obtido por clicar no botão de comando "Limpar Entradas" será a limpeza das células B1:B3 e B5:B7 :



O Código:

Private Sub CommandButton1_Click()

    For Each Cell In ActiveSheet.UsedRange

        If Not Cell.Locked Then
            If Cell.Value <> "" Then
                Cell.ClearContents
            End If
        End If
    Next Cell

End Sub