Bom dia.
Necessito elaborar uma aba na minha planilha para controlar o log de alterações de outra aba desta mesma planilha. Necessito que nesse log esteja detalhado:
Quando a planilha foi alterada (Data e hora)
Onde ocorreu a alteração (em qual célula)
O que foi alterado
Quem alterou a célula (nome do usuário logado na rede)
Eu tenho a seguinte macro:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim wsHist As Worksheet, Rng As Range
Set wsHist = Sheets("Historia")
If Sh Is wsHist Then Exit Sub
Set Rng = wsHist.Range("A" & Rows.Count).End(xlUp).Offset(1)
With Rng
.Value = Now
.Offset(, 1) = Sh.Name
.Offset(, 2) = Target.Address
If Target.Cells.Count > 1 Then
.Offset(, 3) = "Valores Alterados"
Else
.Offset(, 3) = Target.Formula
End If
End With
End Sub
Mas ela não me dá a informação de quem alterou a informação na planilha.
Vocês poderiam me ajudar?
Obrigada!