Registrar ultimo acesso

colocar código em Esta_pasta_de_trabalho

primeiro comando manda executar antes de fechar

Private Sub Workbook_BeforeClose(Cancel As Boolean)

' chama acessos
acessos

End Sub

Sub acessos()

    'seleciona célula A1 da Planilha 1
    Sheets("Plan1").Cells(1, 1).Select

    'xl = ctrl e down para baixo, é como se clicasse ctrl e para baixo
    Selection.End(xlDown).Select

    se a célula com conteúdo ir para próxima
    linha = ActiveCell.Row + 1
 
    'escrever data e hora que ocorreu a ação de fechar neste caso
    Sheets("Plan1").Cells(linha, 1) = Now()

End Sub