Ir para conteúdo
Fórum Script Brasil

Jessica Oliveira

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Posts postados por Jessica Oliveira

  1. 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!

     

×
×
  • Criar Novo...