EXCELer

A Função que apresento hoje, mostra a data e a hora da última alteração que uma folha teve:




O Código:

Public Function DataHora(s As String) As String
    Application.Volatile

    s = "Última alteração à folha efectuada em: " & Date & "  hora:" & Time

    DataHora = s

End Function