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" ThenOpen ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".log" For Append As #1Print #1, Application.UserName, NowClose #1End IfEnd Function
Tags: VBA, Excel, logo, txt, texto, text