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...
