About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2006-04-10
Se quisermos saber o nome do utilizador e a data e hora do acesso a determinado workbook, como no exemplo:



Obteremos o seguinte resultado:

Nome02

O Código do exemplo:

Sub Auto_Open()
    Dim Ops(1 To 5) As String
    Dim Msg As String

    Ops(1) = Day(Date)
    Ops(2) = Month(Date)
    Ops(3) = Year(Date)
    Ops(4) = Hour(Time)
    Ops(5) = Minute(Time)


    Msg = Ops(3) & "-" & Ops(2) & "-" & Ops(1) & " " & Ops(4) & ":" & Ops(5)

    Sheets("Sheet1").Select

    Range("A65536").Select
    Selection.End(xlUp).Select    ' Selecciona a última célula não vazia do Range
    ActiveCell.Offset(1, 0).Select    ' Selecciona a primeira célula vazia do Range

    Application.Cursor = xlNormal

    Do While IsEmpty(ActiveCell)
        ActiveCell.Value = InputBox(Prompt:="Introduza o seu NOME:", _
                                    Title:="Nome do Utilizador")
        ActiveCell.Value = UCase(ActiveCell)    ' Transforma em letras maiúsculas
    
    Loop
    
        Range("B65536").Select
        Selection.End(xlUp).Select
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = Msg
    End

End Sub