Identificar quem acessou uma planilha no Excel

[Afazio]

Boa Tarde Pessoal,

Preciso de uma ajuda, desenvolvi uma planilha para utilização de 2500 funcionarios atraves da rede da empresa, porém gostaria de ficar sabendo quem e quando acessou ....

Gostaria que ao abrir a planilha, automaticamente ficaria registrado o Logon a data e o horario da pessoa.

Podem me ajudar ????

Valeu como sempre...!!!

Abraços:confused:

[joseA]

Veja essa referência:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=17&t=769&start=10

[zinhovba]

Boa noite!

Veja se isso pode te ajudar..

Sub teste()

Set Nome = CreateObject("Wscript.Network")

MsgBox "Nome de Usuário: " & Nome.UserName & vbCr & "Nome do Computador: " & Nome.ComputerName

End Sub

Att..

[Terapiii]

Seria melhor você compartilhar sua planilha em rede e colocar o controle de alterações.

[Afazio]

Valei Zinho...mas tenho um problema...as informações aparecem certinho quando clico em um botao de acesso que criei, porém como faço para gravar essas informações em uma lista de acessos realizados ??

Outra coisa, somente eu consigo ter esse acesso...quando peço para outra pessoa acessar a planilha de outra maquina da rede dá erro na macro e não acontece nada...só aparece as informações de erro.....

Pode me ajudar cara....???

Valeu

Boa noite!

Veja se isso pode te ajudar..

Sub teste()

Set Nome = CreateObject("Wscript.Network")

MsgBox "Nome de Usuário: " & Nome.UserName & vbCr & "Nome do Computador: " & Nome.ComputerName

End Sub

Att..

Valei Zinho...mas tenho um problema...as informações aparecem certinho quando clico em um botao de acesso que criei, porém como faço para gravar essas informações em uma lista de acessos realizados ??

Outra coisa, somente eu consigo ter esse acesso...quando peço para outra pessoa acessar a planilha de outra maquina da rede dá erro na macro e não acontece nada...só aparece as informações de erro.....

Pode me ajudar cara....???

Valeu

Seria melhor você compartilhar sua planilha em rede e colocar o controle de alterações.

Cara...a planilha é muito pesada...pois são todos os organogramas da empresa que criei....

Segue planilha

[Terapiii]

Não tem problema, faça um teste, vá lá em Menu -----> Revisão ----->Controlar alterações------>Realçar alterações ---->Controlar alterações ao editar -----> No botão "quando" digite "desde a última alterações" ----->Click no botão realçar alterações na tela ---->>Click em Ok.

Todas as alterações que forem feitas na planilha vai aparecer em modo comentário.

Dê retorno,

[Afazio]

Cara...acho que não me fiz entender direito....

O codigo que me passou ficou legal....quando eu clico em um botao que criei e Atribui o codigo que me passou aparece certinho um acaixa com o nome do usuario e maquina, porém quando clico em OK essas informações não ficam registradas em lugar nenhum, entendeu ?

Queria qua ao clicar em OK as informações de Nome do Usuario, Data e Hora do Acesso fossem lançadas em uma planilha para que eu possa ter um relatorio mensal de quem e quando acessou a planilha....

VALEU!!!! ABRAÇOS

[Terapiii]

Eu acho que você está muito confuso, seria melhor você anexar uma planilha de exemplo aqui no forum para que possamos te ajudar.

[Afazio]

Segue planilha em anexo que quero um registro de quem e quando acessou.

Abraços

[Visitante]

1. crie uma planilha em branco e a nomeie DedoDuro

2. cole o código abaixo no módulo de EstaPasta_de_trabalho

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long
If Sh.Name = "DedoDuro" Then Exit Sub
Application.EnableEvents = False
With Sheets("DedoDuro")
    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")
End With
Application.EnableEvents = True
End Sub

o histórico das alterações será lançado na plan DedoDuro assim :

coluna A - data, hora, min e seg da alteração

coluna B - nome da plan onde ocorreu a alteração

coluna C - endereço da célula alterada

coluna D - novo conteúdo da célula alterada

coluna E - nome do usuário

[Jaque Cerchiaro]

obrigada

eu estava precisando disso

[insert1120]

Pessoal, Boa tarde!

 

Gostaria de saber qual o comando posso usar para esta planilha registrar o que estava escrito na célula antes da alteração.

 

Até mais!

Rodrigo

[Enival]

Em ‎21‎/‎09‎/‎2015 às 15:13, insert1120 disse:

Pessoal, Boa tarde!

 

Gostaria de saber qual o comando posso usar para esta planilha registrar o que estava escrito na célula antes da alteração.

 

Até mais!

Rodrigo

Dim Escrito_na_célula_antes As String

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
    Dim LR As Long
        If Sh.Name = "DedoDuro" Then Exit Sub
    Application.EnableEvents = False
    With Sheets("DedoDuro")
        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 = Escrito_na_célula_antes
        .Range("E" & LR + 1).Value = Target.Value
        .Range("F" & LR + 1).Value = Environ("USERNAME")
    End With
    Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "DedoDuro" Then Exit Sub
    Escrito_na_célula_antes = Target.Value

[Eron Targino]

Em 24/03/2016 às 23:23, Enival disse:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

 

A execução para nesta linha. Dica: Na última linha falta o End Sub.

 

[jhon10099]

Em 02/08/2011 às 16:02, osvaldomp disse:

1. crie uma planilha em branco e a nomeie DedoDuro

2. cole o código abaixo no módulo de EstaPasta_de_trabalho

 

 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long
If Sh.Name = "DedoDuro" Then Exit Sub
Application.EnableEvents = False
With Sheets("DedoDuro")
    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")
End With
Application.EnableEvents = True
End Sub

 

o histórico das alterações será lançado na plan DedoDuro assim :

coluna A - data, hora, min e seg da alteração

coluna B - nome da plan onde ocorreu a alteração

coluna C - endereço da célula alterada

coluna D - novo conteúdo da célula alterada

coluna E - nome do usuário

e possível verificar as alterações anteriores ao código?