Domine o Excel ® (3 em 1): Excel - 70 Fórmulas Incríveis, Excel - 51 Macros incríveis e 51 Dicas e Truques Incríveis

Dim StartTime As Date
Dim EndTime As Date
Dim Elapsed As Double
Dim iMinutes As Long
Dim dblSeconds As Double
Private Sub WorkBook_Open()
StartTime = Now
End Sub
Private Sub WorkBook_BeforeClose(Cancel As Boolean)
EndTime = Now
Elapsed = 86400 (EndTime - StartTime)
If Elapsed < 60 Then
MsgBox "Este arquivo ficou aberto por: " & Format(Elapsed, "#0.0") & "
Segundos", vbInformation + vbOKOnly
Exit Sub
Else
On Error GoTo RotuloEstouro:
iMinutes = Elapsed / 60
On Error GoTo RotuloEstouro:
dblSeconds = Elapsed - (60 iMinutes)
MsgBox "Este arquivo ficou aberto por: " & Format(iMinutes, "#") & ":"
& Format(dblSeconds, "00") & " Minutos", vbInformation + vbOKOnly
Exit Sub
End If
RotuloEstouro:
MsgBox "O tempo será computado a partir do próximo acesso"
End Sub