Home Excel - Downloads / Areas Restritas Excel VBA - Acesso Log

Excel VBA - Acesso Log

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    vba acesso planilha registro usuario maquina data hora vba acesso planilha registro usuario maquina data hora

    popular!
    Adicionado em: 17/11/2010
    Modificado em: 17/11/2010
    Tamanho: 25.01 KB
    Downloads: 1152

    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 vba acesso registra arquivo txt usuario maquina data hora

    popular!
    Adicionado em: 17/11/2010
    Modificado em: 03/12/2010
    Tamanho: 25.01 KB
    Downloads: 556

    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






    Pesquisa Google SaberExcel

    Publicidade Google

    Publicidade

    Rastreamento Correios

    Digite o número do SEDEX conforme o exemplo:
    Correios do Brasil

    Assinatura SaberExcel

    Google Associados

    Depoimentos

    Visitantes SaberExcel

    Excel VBA Estudos®
    mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
    mod_vvisit_counterHoje4735
    mod_vvisit_counterOntem5649
    mod_vvisit_counterEsta Semana31344
    mod_vvisit_counterSemana passada30564
    mod_vvisit_counterEsse mês115901
    mod_vvisit_counterMês passado120411
    mod_vvisit_counterTodos10944282
    Aprenda MS Excel VBA

    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