Excel - Downloads / Areas Restritas Excel VBA - Acesso Log
Excel VBA - Acesso Log
Documentos
vba acesso planilha registro usuario maquina data hora
| Adicionado em: | 17/11/2010 |
| Modificado em: | 17/11/2010 |
| Tamanho: | Vazio |
| Downloads: | 1699 |
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
vba acesso registra arquivo txt usuario maquina data hora
| Adicionado em: | 17/11/2010 |
| Modificado em: | 03/12/2010 |
| Tamanho: | Vazio |
| Downloads: | 862 |
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
PROMOÇÃO DIDÁTICOS SABEREXCEL
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
Pesquisa Google SaberExcel
Contatos Equipe Saberexcel
Publicidade Google
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Publicidade
Tags Populares
RSFirewallProtected
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
