| Descricao: |
 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 Aplicativo Microsoft Excel VBA - SaberExcel
|