Ir para conteúdo
  • Cadastre-se
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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...