Quanto a atualização dos hyperlynks, pesquise por Vinculo e até mesmo por hyperlynk e encontrara vários tópicos.
Quanto ao arquivo mais recente, você pode estar adaptando a rotina abaixo :
Sub MostrarAcessoAoArquivo()
Dim fs, f, s
'Definir o arquivo especifico na rotina
filespec = "C:Documents and SettingsMvcHardMeus documentosTESTEdeletar.xls"
'Ou Abrir Cx de dialogo para selecionar um arquivo
'filespec = Application.GetOpenFilename
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(filespec) & vbCrLf
s = s & "Criado em : " & f.DateCreated & vbCrLf
s = s & "Último Acesso : " & f.DateLastAccessed & vbCrLf
s = s & "Última Modificação : " & f.DateLastModified
MsgBox s, 0, "Informações de Acesso ao arquivo"
End Sub
Ajuste o Caminho e o nome do arquivo que pretende ter detalhes.
A rotina acima foi postado no Tópico abaixo:
Data de atualização
http://planilhando.com.br/forum/viewtop ... 180&p=4367
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 15/09/2014 6:49 pm