Jump to content
Fórum Script Brasil
  • 0

Planilha Log de Alterações


Question

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!

 

Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148681
    • Total Posts
      644506
×
×
  • Create New...