Excel em tela cheia com barra de status
Muita gente gosta de trabalhar com o Excel em tela cheia, pois vemos praticamente apenas os dados, mas algumas vezes seriam interessante também possui as informações da barra de status.
O problema é que quando clicamos no botão tela cheia ela é automaticamente ocultada e não nos é fornecida uma opção de re-exibí-la.
Como contornar isso então?
Através do VBA!
Ok, mas mesmo mandando ela ser re-exibida via VBA, enquanto estiver em modo de tela cheia, a barra não volta. O que fazer então?
Simples. Basta simular o modo de tela cheia. Como assim?
Ocultando tudo o que ele oculta, exceto a barra de status.
Como fazemos isso?
A função a seguir realiza exatamente este procedimento e deve ser inserida de forma a ser executada na abertura da planilha:
1. Abra a planilha e pressione Alt + F11;
2. Na lado esquerdo da tela, na janela de Projeto, dê dois cliques em EstaPasta_de_trabalho;
3. Na janela do lado direito, clique na seta ao lado de (Geral) e selecione Workbook;
4. Neste momento será criada a macro a ser executada na abertura da planilha:
Private Sub Workbook_Open()
5. Agora insira o código dentro dela, conforme demonstrado abaixo:
Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
End Sub
6. Pronta, agora você tem uma planilha em tela cheia, mas com a barra de status!
IMPORTANTE: Caso você feche a planilha agora, a próxima que abri-la estará com este visual e pode não ser o que se deseja, então antes de fechá-la você deve restaurar os itens ocultados. Para isto realize o seguinte procedimento:
1. Clique no lado direito da tela, onde você lê Open e selecione BeforeClose;
2. Copie o código da Sub Open para a nova Sub;
3. Altere os três False que vê no código, por três True, conforme demonstrado abaixo:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
End Sub
4. Agora sim, tudo pronto!