VBA Excel - Criando um Log de acesso

Inline image 2



Digamos que precisemos rapidamente registrar o nome das pessoas que estão acessando um relatório, uma análise, um Dashboard contido em uma das nossas planilhas.

Rapidamente podemos inserir esta função na nossa planilha e , voià la pronto!

Caso o nosso arquivo esteja sendo aberto em uma página da intranet, o mesmo não registrará nada.

Function Rastrear()
    ' Author:                     Date:               Contact:
    ' André Bernardes             11/08/2008 09:01    bernardess@gmail.com
    ' Cria arquivo de Log.

    If Left(ThisWorkbook.Path, 4) <> "http" Then
        Open ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".log" For Append As #1
        Print #1, Application.UserName, Now
        Close #1
    End If
End Function

Tags: VBA, Excel, logo, txt, texto, text




Nenhum comentário:

Postar um comentário

diHITT - Notícias