Home Excel - Dicas Microsoft Excel VBA Excel VBA - Acesso Log Excel vba acesso registra em arquivo txt usuario maquina data

Excel vba acesso registra em arquivo txt usuario maquina data

E-mail Imprimir PDF

Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

Essas declarações, Funções e Macros do Aplicativo Microsoft Excel VBA, registra em uma arquivo (Acesso a Planilha.txt) que será salvo em determinado Diretório, neste caso "C:\VBA\Acesso a planilha.txt", e registra o nome do usuário, máquina, data e horário de acesso à planilha.



Declare Function GetComputerName& Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
(ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
'---------------------------------
Function deMAQUINA() As String
Dim Buffer As String * 256
Dim BuffLen As Long
Dim lngX As Long
Dim strCompName As String
BuffLen = 255
If GetComputerName(Buffer, BuffLen) Then _
deMAQUINA = Left(Buffer, BuffLen)
End Function

Function deUSUARIO() As String
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetUserName(Buffer, BuffLen) Then _
deUSUARIO = Left(Buffer, BuffLen - 1)
End Function


No módulo de código do Livro(Workbook) insira o seguinte código, que será executado na abertura do Livro, registrando os dados do acesso à planilha no arquivo Txt.

Private Sub Workbook_Open()
Dim vUsuario As String, vMaquina As String
vUsuario = deUSUARIO()
vMaquina = deMAQUINA()
Open "C:\VBA\Acesso a planilha.txt" For Append As #1
Write #1, "Usuário: " & vUsuario & " - " & "Máquina: " _
& vMaquina & " - " & "Data: - " & Now
Close #1
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



    Baixe o exemplo de planilha contendo as macros, funções e declarações acima
Excel planilha vba acesso planilha registro usuario maquina data hora (25.01 kB 2010)



Última atualização em Dom, 22 de Julho de 2012 18:58  

Comentários   

 
Hiure
# Hiure 04-11-2013 11:48
Essa macro registra o dados de quem acessou enquanto depois que a macro foi inserida. Será que não daria para ter as informações de usuário e maquina que acessaram um arquivo antes disso?
Responder | Responder com citação | Citar
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA