Saberexcel - site das macros microsoft Excel VBA

Esse exemplo de macros do Aplicativo Microsoft Excel VBA, abre um arquivo txt, com nome [Open "C:\VBA\Acesso a planilha.txt"] em determinado diretorio("especificar na macro o caminho do path"), e nesse arquivo.txt será inserido os dados do usuário, nome da maquina, horario e data do login efetuado.

resultado dos dados inseridos no arquivo texto:
Usuário: SaberExcel - Máquina: EXCELVBAESTUDOS - Data: - 26/08/2010 19:51:16

EM UM MÓDULO COMUM INSIRA AS DECLARAÇÕES E PROCEDIMENTOS ABAIXO:

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 sbMaquina_Nome() 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 _
sbMaquina_Nome = Left(Buffer, BuffLen)
End Function
'------------------------------------------'


Function sbNomeUsuario() As String
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256

If GetUserName(Buffer, BuffLen) Then _
sbNomeUsuario = Left(Buffer, BuffLen - 1)
End Function

'------------------------------------------'


NO MÓDULO DE CÓDIGO DO LIVRO WORKBOOK INSIRA OS CÓDIGOS

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

Aprenda Aplicativo Microsoft Excel VBA




 Baixe o exemplo de planilha da macros declarações e procedimentos acima
 vba acesso planilha registro usuario maquina data hora (25.01 KB 2010-08-26 19:27:27)