Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Controle de Planilh...
 
Notifications
Clear all

Controle de Planilha

 
2024 - VBA & Macros
Post Recente por Trindade 9 anos atrás
3 Posts
2 Usuários
0 Reactions
802 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá pessoal , gostaria de uma ajuda de voces.

Gostaria de saber se tem como fazer o seguinte.

Toda vez que uma planilha for aberta que fosse gerado um arquivo .TXT em c:logs com o nome do computador ( hostname ) que fez o acesso a planilha com data e horário do acesso.

Por execmplo .. planilha compras.xls

Local c:logs

Arquivo Compras.txt

Data Hora Hostname

01/01/2016 10:00 Maquina01
01/01/2016 10:05 Maquina99

Obrigado

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/02/2016 8:50 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja se estes exemplos ajudam, criam log tambem das alterações efetuadas, mas é só ajustar e tirar estas opções se nãofor precisar.

Log com as Alterações nas Planilhas v 2003 - v 2007
http://www.tomasvasquez.com.br/forum/vi ... f=17&t=769

Tamebm foi discutido aqui :
viewtopic.php?f=10&t=1826

Se pesquisar no Forum por Log Alteração encontrara varios outros tópicos.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/02/2016 9:05 am
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
 

Bom dia, ACP.Lacerda.

Seria algo mais ou menos assim:

Dim iFF As Integer
    
    iFF = FreeFile
    
        Open "c:logsArquivo_Compras.txt" For Append As iFF
                    
			Print #iFF, Now & "," & Environ$("username") & "," & Environ$("UserProfile") & "," & Environ$("ComputerName") & "," & Environ$("Logonserver") & "," & Environ$("UserDomain") & ","
                
        Close iFF

End Sub

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 25/02/2016 9:12 am
Forum Jump:
  Tópico Anterior
Próximo Tópico