Macro para controlar alterações em uma aba

Cole esta macro na aba que você quer controlar as alterações e ajuste o intervalo de controle.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strAddress As String
Dim val
Dim dtmTime As Date
Dim Rw As Long

If Intersect(Target, Range(“A1:Z5000”)) Is Nothing Then Exit Sub

dtmTime = Now()
val = Target.Value
strAddress = Target.Address

Rw = Sheets(“Log Sheet”).Range(“A” & Rows.Count).End(xlUp).Row + 1
With Sheets(“Log Sheet”)
.Cells(Rw, 1) = strAddress
.Cells(Rw, 2) = val
.Cells(Rw, 3) = dtmTime
End With
End Sub