Macro para apagar apenas células desbloqueadas - todas ou a seleção desejada.

Olá, depois de muito tempo sumida, estou de volta com uma ótima dica!

Uma macro super simples para apagar apenas células desbloqueadas de sua planilha. Ela pode ser usada para apagar todas as desbloqueadas ou apenas aquela que você desejar.

Para apagar todas a células desbloqueadas:

Sub LimparDesbloquedas()
    Dim rg As Range
    For Each rg In ActiveSheet.UsedRange
    If rg.Locked = False Then rg.ClearContents
    Next rg
End Sub

Para apagar células desbloqueadas específicas:

Sub Limpar()
Dim c As Range
For Each c In Sheets(1).Range("C44:D45")
  If c.Locked = False Then
    c.Value = ""
  End If
Next

End Sub

Se quiser incluir mais intervalos, basta separá-los por vírgula.

Sub Limpar()
Dim c As Range
For Each c In Sheets(1).Range("C44:D45, A4:B4, G7")
  If c.Locked = False Then
    c.Value = ""
  End If
Next

End Sub

Até mais...