Microsoft Office - RicardoHorta.Net - www.ricardohorta.net - Dicas microsoftianas

www.ricardohorta.net - Excel XP: Controles: Objeto UserForm - Cap. 09

Parceria RicardoHorta.Net + Americanas.com !!

Newsletter

Quero exibir o nome do usuário na barra de título do formulário.

Ok.
Este nome fica armazenado na caixa de diálogo Opções. Para visualizá-lo, clique em Ferramentas e Opções ( Válido para Word e Excel ).

No Excel XP, o nome está na guia Geral.
Porém, o código VBA será o mesmo, porque vamos utilizar a propriedade UserName.

Alterando a barra de título em tempo de execução.

Abra o Editor do VBA ( O caminho é o mesmo no editor de texto e na planilha microsoftiana ).

Em seguida, para editar o código fonte, clique 2 vezes com o botão esquerdo no UserForm. Se preferir, clique com o botão direito e escolha Exibir código.

A procedure referente ao evento padrão ( Click ) do objeto é criada. Só que, neste momento, nada queremos com ela.

Se você digitar, por exemplo, UserForm_TelaInicial.Caption = "Ricardo Horta" e instalar o seu aplicativo em outro computador, a barra de título exibirá sempre o mesmo texto, independente do que estiver gravado na guia Usuário. Então, já deu pra perceber que esta não é a melhor opção. Será preciso alterar o código VBA para cada cópia instalada. É... Definitivamente, o seu cérebro não vai concordar.
Então, jovem, automatize esta tarefa ! Utilize a propriedade UserName do objeto Application para atualizar a propriedade Caption do UserForm.
Digite no evento Initialize: UserForm_TelaInicial.Caption = Application.UserName.

Ver para crer ?! OK. Clique com o botão esquerdo dentro da procedure e clique no botão Executar Sub/UserForm.

O evento Initialize associará o valor da propriedade UserName do objeto Application à Caption do UserForm. Assim, não haverá necessidade de alterar o código fonte quando mudar o usuário. OK, crianças ?!