Macro - Log de Registro

Tiagolf · 28 de novembro de 2012

Boa Tarde,

Gostaria de saber se há essa condição de se faz uma macro.

Acho que se houver a possibilidade, ajudará bastante não só eu mas outros usuários também.

Seguinte a macro que eu queria seria esta:

Toda vez que abrisse a planilha, a macro fosse executada sem perguntar.

E que ao alterar alguma célula, ele criasse um log em .txt com:

Usuário

Computador

Data

Celula alterada

Valor antigo

Valor novo

PS: para Win7 e excel 2010

Se conseguirem, muito obrigado!

Patropi · 28 de novembro de 2012

Boa tarde Tiago

Seja bem vindo ao fórum!

Veja se este link pode te ajudar

http://www.tecmundo.com.br/excel/999-excel-controle-modificacoes-em-planilhas.htm

Abraço.

Tiagolf · 29 de novembro de 2012

Boa Noite Patropi

Na realidade eu queria uma macro, que informasse um log de tudo q foi alterado com os critérios que eu disse ali em cima na extensão TXT

e se possível fazer ele rodar sem precisar habilitar os macros..

É que essa planilha é pra controle comercial, do que estão alterando e quem está alterando.

Obrigado!

Tiagolf · 30 de novembro de 2012

Alguem ai???

30 de novembro de 2012

O código abaixo faz o monitoramento de todas as planilhas do arquivo em uma planilha de nome Log, se quiser depois salve-a como .txt.

1. instale o código abaixo no módulo de 'EstaPasta_de_trabalho'

2. crie uma planilha em branco e dê a ela o nome de Log

3. cada alteração será registrada nessa planilha; é conveniente ocultá-la

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long
If Sh.Name = "Log" Then Exit Sub
Application.EnableEvents = False
With Sheets("Log")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & LR + 1).Value = Format(Now, "dd-mm-yy hh:mm:ss")
    .Range("B" & LR + 1).Value = Sh.Name
    .Range("C" & LR + 1).Value = Target.Address(False, False)
    .Range("D" & LR + 1).Value = Target.Value
    .Range("E" & LR + 1).Value = Environ("USERNAME")
    .Range("F" & LR + 1) = Environ$("computername")
End With
Application.EnableEvents = True
End Sub