Excel Macro pra mostrar a data da ultima modificação

[Scofieldgyn]

Boa tarde,

 

eu tenho uma planilha excel que faz a importação de outra planilha na rede feita por outro usuário, acontece que eu preciso de um código vba que coloque a data e o nome do usuário da ultima modificação que esse usuário fez pra essa planilha.

 

só me passa o código e eu vou adptar no minha rotina. 

desde já agradeço.

[Basole]

@Scofieldgyn  Segue opção: 

 

No modulo de EstaPasta_de_trabalho 

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Ev As String
    Ev = "Salvou"
    Call Test_LOG(Ev)
End Sub

 

Pode criar uma aba nomeando-a como Log

...em um modulo padrão:

 

Sub Test_LOG(Ev As String)
Dim linha!
 With ThisWorkbook.Sheets("Log")
 If Cells(Rows.Count, 1).End(xlUp).Row <= 1 Then
       
            .Range("A1").Value = "Evento"
            .Range("B1").Value = "Usuario"
            .Range("C1").Value = "Dominio"
            .Range("D1").Value = "Computador"
            .Range("E1").Value = "Data e Hora"
         linha = 2
    End If
    
    linha = .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row
    
        .Range("A" & linha).Value = Ev
        .Range("B" & linha).Value = VBA.Environ("UserName")
        .Range("C" & linha).Value = VBA.Environ("USERDOMAIN")
        .Range("D" & linha).Value = VBA.Environ("COMPUTERNAME")
        .Range("E" & linha).Value = VBA.Now()
      .Columns.AutoFit
   End With
End Sub

 

[Scofieldgyn]

@Basole obrigado