Note: The other languages of the website are Google-translated. Back to English

Como manter a janela do Excel sempre no topo?

Você já desejou manter suas janelas do Excel sempre no topo e não ser cobertas por outras janelas? Infelizmente, o Excel não oferece um recurso para resolver essa tarefa. Mas, aqui, posso fornecer um código VBA para lidar com esse trabalho.

Mantenha a janela do Excel sempre visível com o código VBA


seta azul bolha direita Mantenha a janela do Excel sempre visível com o código VBA


O código VBA a seguir pode ajudá-lo a manter a janela do Excel sempre no topo, o código é aplicado ao Office 32 bits e Office 64 bits.

1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: mantenha a janela do Excel sempre no topo

'Update 20140909
#If Win64 Then
    Public Declare PtrSafe Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As LongPtr, _
            ByVal hwndInsertAfter As LongPtr, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#Else
    Public Declare Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As Long, _
            ByVal hwndInsertAfter As Long, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#End If
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Sub ShowXLOnTop(ByVal OnTop As Boolean)
    Dim xStype As Long
    #If Win64 Then
        Dim xHwnd As LongPtr
    #Else
        Dim xHwnd As Long
    #End If
    If OnTop Then
        xStype = HWND_TOPMOST
    Else
        xStype = HWND_NOTOPMOST
    End If
    Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Sub SetXLOnTop()
    ShowXLOnTop True
End Sub
Sub SetXLNormal()
    ShowXLOnTop False
End Sub

3. Então aperte F5 chave para executar este código, e um Macros a caixa de diálogo aparecerá, selecione SetXLOnTop opção e clique Corrida botão.

doc-manter-excel-on-top-1

4. E então sua janela do Excel estará sempre em cima de outros aplicativos.

Importante: Se você deseja retornar a janela do Excel ao normal, basta pressionar F5 chave para abrir o Macros diálogo, escolha DefinirXNormal e clique Corrida.


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (11)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Obrigado por fornecer este código! Tão útil. Eu tenho usado Judy ten key para esse recurso, mas agora posso usar o Excel. Perfeito, obrigado!!
Este comentário foi feito pelo moderador no site
Amo isso!! Ótimo código. Obrigado! Sou um programador iniciante, mal sei o que ele faz. Onde eu mudaria no código se quisesse que a janela saltasse para um determinado tamanho, ocultasse a faixa de opções e/ou saltasse para uma determinada planilha ou intervalo de células?
Este comentário foi feito pelo moderador no site
Obrigado pela ajuda!!! Eu tive que usar isso como uma solução alternativa porque você não pode ter duas páginas de trabalho abertas ao mesmo tempo. Agradeço por compartilhar seu código :)
Este comentário foi feito pelo moderador no site
Obrigado por isso. Muito útil ao transpor dados de vários sistemas para uma planilha. Valorize o código!
Este comentário foi feito pelo moderador no site
Obrigado .. Deus abençoe ..!
Este comentário foi feito pelo moderador no site
Muito obrigado por isso! Eu precisava manter minha planilha automatizada de estatísticas do sistema sempre ativa enquanto fazia outras coisas com base no que ela estava me mostrando. Muito útil! :D
Este comentário foi feito pelo moderador no site
Gênio absoluto. Exatamente o que eu precisava. Obrigado!!!
Este comentário foi feito pelo moderador no site
Olá

Parece que xHwnd definido para armazenar Application.hWnd antes de chamar SetWindowPos como abaixo:

xHwnd = Application.hWnd
Chame SetWindowPos(xHwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE ou SWP_NOMOVE)

obrigado
Este comentário foi feito pelo moderador no site
Esse código deve ser aplicado a cada arquivo do Excel separadamente ou a macro pode ser salva no Excel para ser ativada/desativada sempre que uma nova pasta de trabalho do Excel for aberta?
Este comentário foi feito pelo moderador no site
impressionante!!!!!!
Este comentário foi feito pelo moderador no site
impressionante!!!!!!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0  Personagens
Locais sugeridos