Ir para conteúdo
Fórum Script Brasil
  • 0

Planilha Log de Alterações


Jessica Oliveira

Pergunta

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 para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...