Home Excel - Dicas Microsoft Excel VBA Excel VBA - Acesso Log Excel planilha vba acesso_log procedimentos para montar uma planilha acesso

Excel planilha vba acesso_log procedimentos para montar uma planilha acesso

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Essa função do Aplicativo Microsoft Excel VBA(Visual Basic Application), registra o login do usuário, um bom procedimento para usar no desenvolvimento de um sistema acesso_log macros e funções para montar um sistema de logon
Saberexcel - dicas de macros microsoft excel vba


Option Explicit

Public Function LogInformation(LogMessage$)
On Error GoTo MakeFolder
Entry:
Open "c:\MyLogFiles\" & Left(ThisWorkbook.Name, _
Len(ThisWorkbook.Name) - 4) & _
" Log.Log" For Append As #1
Print #1, LogMessage
Close #1
Exit Function
MakeFolder:
MkDir "c:\MyLogFiles"
Resume Entry
End Function
'............................'

MODULO WKB
Option Explicit

Private Sub Workbook_Open()
LogInformation "Aberto" & Application.UserName & _
" " & Format(Now, "dd mmm yyyy hh:mm:ss")
End Sub
'............................'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
LogInformation ActiveSheet.Name & Selection.Address & " Changed: " & _
" " & Format(Now, "dd mmm yyyy hh:mm:ss")
End Sub
'............................'
Private Sub Workbook_BeforePrint(Cancel As Boolean)
LogInformation ActiveSheet.Name & "Printed: " & _
" " & Format(Now, "dd mmm yyyy hh:mm:ss")
End Sub
'............................'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
LogInformation "Salvo em: " & Application.UserName & _
" " & Format(Now, "dd mmm yyyy hh:mm:ss")
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
LogInformation "Fechado em:" & Application.UserName & _
" " & Format(Now, "dd mmm yyyy hh:mm:ss")
End Sub
'..............................


'





Última atualização em Qui, 18 de Agosto de 2011 11:51  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

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

Adquiri o Material Planilhas Exemplos, a Coleção de Macros, Curso VBA Excel, com mais de 500 Video Aulas e realmente posso afirmar que se trata de uma verdadeira bíblia do Excel VBA, excelente, muito bom, estão de parabéns! ! IETEC contabilidade....

Luciano B. Oliveria - São Paulo/SP
17 May 2010
Parabéns pelos produtos didáticos, gostei muito do curso completo ms excel vba, hoje estou praticando com macros, aprendi muito. Obrigado. Osvaldo São Paulo....

Osvaldo Oliveira
16 November 2011

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