Inserindo o nome do usuário no rodapé das planilhas


Função que insere o nome do usuário logado na estação no rodapé de todas as planilhas. (funciona em qualquer versão de Excel)

Function USUARIO()

Dim WK

For Each WK In Worksheets

WK.PageSetup.LeftFooter = Environ("USERNAME")

Next

End Function

Inserir esse código na folha de módulo da Pasta de Trabalho no evento Workbook_Open()

5 comentários em “Inserindo o nome do usuário no rodapé das planilhas

    1. Olá Diego,

      Obrigado pelo elogio.

      Bom, em alguns casos (para automatização), realmente necessitamos do uso do VBA.

      Mas, com o bom uso de fórmulas concatenadas, ainda temos um bom resultado no Excel.

      Obrigado pelo comentário e até mais!

      Marco Aurélio

      Curtir

    1. Olá Bruno,

      Via fórmula eu desconheço…

      Mas caso prefira, segue um código VBA para a sua pergunta:

      O seguinte exemplo de macro adiciona os dados da célula A1 no cabeçalho/rodapé da planilha ativa:

      Sub UpdateFooter()
      ActiveSheet.PageSetup.Leftfooter = Range(“A1”).Value
      End Sub

      A macro de exemplo a seguir adiciona os dados da célula A1 no cabeçalho da planilha ativa.

      Sub UpdateHeader()
      ActiveSheet.PageSetup.Leftheader = Range(“A1”).Value
      End Sub

      Como não sei se vc conhece programação, segue um pequeno passo-a-passo para inserção do código:

      Para criar uma macro do Visual Basic, execute essas etapas:
      1. Inicie o Microsoft Excel.
      2. Pressione ALT + F11 para iniciar o Editor do Visual Basic.
      3. No menu Inserir , clique em Módulo.
      4. Digite o código que você deseja na folha de Módulo.
      5. Feche a janela para retornar ao Excel. Não se preocupe, você não irá perder nada.

      Para executar a macro, siga estas etapas:
      1. Alterne para a planilha que você deseja.
      2. Pressione a combinação de teclas de atalho ALT+F8.
      3. Selecione a macro que você deseja e, em seguida, clique em Executar. Observação: depois que você executar a macro UpdateFooter, o rodapé deve conter todos os dados contidos na célula A1 (ou outra célula que preferir).

      Não se esqueça de salvar a pasta de trabalho com a opção de macros habilitadas para pasta de trabalho (*.XLSM)

      Espero ter ajudado,

      Marco Aurélio

      Curtir

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s