![Inline image 2](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbLnyVGZM5QP33vt5grRtZsjgsHzHpab_ArQ2-_na0mjiOxICl_zwzTBOiZXLKe4Sma22EfFiViUmbY_GbHhS8T0oUAdUSPTELhfxzSY7OpgToanM5sdJBK0mBtGxVtuPiKSitrqNpw19C/s1600/VBA_Header_Andre_Luiz_Bernardes_080-743206.jpg)
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
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhU0rFC0g1bEoAXTFqfQcLlu3NssmweFvXr9nZVB5CqjnLz4spJfZvmBdI_IpeVlnnVLPnZQz0zD_jKNDRmfV2HHg3YKLg2eVAnRTYyfXncYlX0rU6Lv4qycd2tLaUO-RAWWaaA-98AvbmY/s640/VBA_Signature_Andre_Luiz_Bernardes_032b-722457.png)
Nenhum comentário:
Postar um comentário