Option Explicit
Private SelecaoAnterior As Object
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Variant
For Each cell In Target
If SelecaoAnterior.Exists(cell.Address) Then
If SelecaoAnterior.Item(cell.Address) <> cell.FormulaR1C1 Then
cell.Interior.ColorIndex = 35
End If
End If

17. Proteger todas as planilhas

Esta simples rotina, protege automaticamente todos os dados de todas as
planilhas de possíveis alterações.

Obs: Substituir os valores de exemplo em negrito pelos valores desejados.

Sub ProtectSheets()
Dim wksht As Worksheet
For Each wksht In ActiveWorkbook.Worksheets