A linha em VBA que muda a barra de status é:

application.statusbar = "Teste " & vba.environ("username") & vba.now()

vc pode colocar no evento open do workbook...
Para limpar depois, use:

application.statusbar  = false

Fernando, blz??

Estou tentando iniciar assim:

Private Sub Workbook_Open()
Application.StatusBar = "Teste" & VBA.Environ("username") & VBA.Now()

Mas relata erro no Projeto VB. Por favor,o que pode ser?

Faltou o End Sub ...

Private Sub Workbook_Open()
Application.StatusBar = "Teste" & VBA.Environ("username") & VBA.Now()

End Sub

Valeu, Fernando!

Erro (esquecimento) primário.
Várias tarefas ao mesmo tempo, consequentemente, esquecimento!
Abçs.