Ir para conteúdo
GENECI

RESPONDIDO informando a data e a hora que o arquivo foi aberto.

Mensagem Recomendada

Olá, Geneci. Veja se algum dos códigos abaixo atende.

O primeiro código abaixo registra em A1 da Planilha1 a data/hora em que o arquivo foi aberto por último e o segundo código registra data/hora em que o arquivo foi fechado por último. O primeiro utiliza A2 como célula auxiliar.

Instale um código de cada vez no módulo de EstaPasta_de_trabalho. Em seguida salve, feche e reabra o arquivo para verificar o resultado.

Private Sub Workbook_Open()
 With Sheets("Planilha1")
  .[A1] = [A2]
  .[A2].Font.ThemeColor = xlThemeColorDark1
  .[A2] = "Seu último acesso foi em  " & Now
 End With
 Me.Save
End Sub

Private Sub Workbook_Open()
 Dim fso As Object, arq As String
  arq = ThisWorkbook.FullName
  Set fso = CreateObject("Scripting.FileSystemObject")
  Sheets("Planilha1").[A1] = "Seu último acesso foi em  " & fso.GetFile(arq).DateLastAccessed
 Me.Save
End Sub

 

 

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×