✔ Programação GLOBAL®: Tips - Rastrei os seus Dashboards, Scorecards, Reports, Relatórios, Planilhas e Aplicações

Tips - Rastrei os seus Dashboards, Scorecards, Reports, Relatórios, Planilhas e Aplicações

Consultancy in Excel, Access, VBA and PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Você deseja acompanhar quantas pessoas estão acessando as suas Planilhas, Dashboards, Scorecards, e os Relatórios disponibilizados na rede da sua empresa?

Sim, é natural que após termos tanto tempo para prepararmos um belo produto de análise, desejemos acompanhar quem o está consultando. Bem, você pode acompanhar através de um arquivo de .LOG.

Isso pode ser facilmente implementado por adicionarmos uma pequena função dentro da sua aplicação. Altere o código para gravar os LOGs em um diretório (ou servidor de arquivos) escondido para acompanhar mesmo que remotamente os acessos à sua aplicação.

Private Sub Form_Open (Cancel As Integer)

' Author: Date: Contact:

' André Bernardes 18/06/2008 08:21 bernardess@gmail.com

' Sub de abertura do formulário.

' Rastreador inserido em 25.09.2008 - 10:52

.LOG

.

Dim ThisFormName As String

Let ThisFormName = Me.Name

Call Rastrear ' Registra acesso no Log.

Call ImagesPath

Call SetMoldura("Logando à aplicação", " . . . ")

HideAccessCloseButton ' Elimina o botão fechar na janela da aplicação do Windows.

Me.LblTime.Caption = Now()

Call AssenteAcesso("OF", ThisFormName, "Sys: Splash de abertura.")

Call SetMoldura("", ".: A&A - In Any Place")

End Sub

Cole a função abaixo no seu módulo:

Function Rastrear()

' Author: Date: Contact:

' André Bernardes 25/09/2008 10:01 bernardess@gmail.com

' Cria arquivo .LOG

Open Application.CurrentProject.Path & "\" & Left(Application.CurrentProject.Name, Len(Application.CurrentProject.Name) - 4) & ".log" For Append As #1

Print #1, " "

Print #1, "User: " & atCNames(1) & "- " & Trim(atCNames(2)), Now()

Print #1, " In: " & CodeProject.FullName

Print #1, " "

Close #1

End Function

Como sei que você tem bastante imaginação, use este código para registrar todos os acessos de todas as suas aplicações MS Access, MS Excel, MS Word, MS PowerPoint, MS Outlook, etc... no mesmo arquivo .LOG, analisando-o quando desejar. Há uma infinidade de possibilidades de utilização dessa solução.Divirta-se.

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, LOG,