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

    popular!
    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

    Compra Grantida --- Entrega Imediata

    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

    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

    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