Boa tarde

Veja se a macro deste link pode te ajudar:

http://www.microsoftexcel.com.br/index. ... uivos.html

At.te

Boa tarde!!
Não testado!

Sub AleVBA_10028()
    MsgBox FileLastModified("C:My Documentsabook.xls") '<-Mude para seu local
End Sub
Function FileLastModified(strFullFileName As String)
    Dim fs As Object, f As Object, s As String
     
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(strFullFileName)
     
    s = UCase(strFullFileName) & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified
    FileLastModified = s
     
    Set fs = Nothing: Set f = Nothing
     
End Function

Att

Resolvi parcialmente o problema com as duas macros abaixo.

Obrigado a todos.

Silvio Felinto

Private Sub Worksheet_Activate()

If Range("j18").Value <> "" Then
MsgBox "Data da última alteração: " & Range("j11").Value
End If

End Sub

Private Sub Worksheet_Deactivate()
Range("j11").Value = Now()
End Sub