Olá amigos,
Venho postar um dica na qual utilizo muito quando estou desenvolvendo um Painel de Indicadores (Dashboard) é um recurso que faz diferença, principalmente quando este painel é utilizado em reuniões pela diretoria, clientes ou até mesmo em análises, Aprenda a Criar Dashboards – Microsoft Excel com tela FullScreen.
[APRENDA TAMBÉM]: 4 FORMAS DE ALTERAR O TÍTULO DO GRÁFICO
Dashboard anual com produtividade e comportamento de demanda Full Screen – Microsoft Excel
O recurso que venho postar é o de deixar a tela em modo Full Screen para apresentações, é muito semelhante ao modo de apresentação do Power Point, é um código que atua nas propriedades da aplicação.
Sub Tela_FullScreen()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
End Sub
Explicando o código:
Podemos notar que a única propriedade que está “TRUE” é a Application.DisplayFullScreen, no caso ela que faz com que a “Ribbon”(Menu superior) fique oculto, já as outras propriedades atuam na aplicação e na janela ativa estando todas como “FALSE”.
| Propriedade | O que é? |
| Application.DisplayFullScreen | TELA CHEIA |
| ActiveWindow.DisplayHeadings | LINHAS DE GRADE |
| Application.DisplayFormulaBar | BARRA DE FÓRMULAS |
| ActiveWindow.DisplayHorizontalScrollBar | BARRA ROLAGEM HORIZONTAL |
| ActiveWindow.DisplayVerticalScrollBar | BARRA DE ROLAGEM VERTICAL |
| ActiveWindow.DisplayWorkbookTabs | PLANILHAS (ABAS) |
| Application.DisplayStatusBar | BARRA DE STATUS |
Importante:
Este código modifica o Microsoft Excel como um todo, por isso se você inserir o código acima e não resetar as propriedades antes de fechar o Microsoft Excel, todo e qualquer arquivo aparecerá em modo Full Screen, por isso vá até o editor de código “ALT + F11” no seu projeto clique em “EstaPasta_de_trabalho” em Workbook altere o evento para “BeforeClose” e cole o código dentro da Private Sub criada.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
End Sub
Agradeço pela leitura e fico no aguardo de seus comentários e sugestões.
Um abraço. DG
Douglas, boa tarde!
Eu usei o código indicado acima e perdi o botão direito do mouse.
Como faço para retornar?
Obrigado
Wellington, neste caso
Basta ajustar no código o trecho abaixo:
For Each barras In Application.CommandBarsbarras.Enabled = True
Next
Douglas,
Perfeito!! Ficou Show de Bola meu Dashboard Financeiro.
Obrigado!
CARACA BIXOO. fiz merda aquii. eu nem sei trabalhar com VBA e coloquei esse codigo agora tuuudo ta abrindo em full screen kkkkk como volta pro normall ME SOCOOORRE
Daniel, para fazer o excel voltar ao normal busca alterar a linha Application.DisplayFullScreen = True para False.
Abraços
Amigão recebi uma planilha xlsm que quando abro não parece nem um pouco com o excel, ele fica parecendo um executável, a janela fica bloqueada de modo que eu só consigo minimiza-la ou fecha-la sem nenhuma aba ou algo do tipo e nessa planilha contém apenas a logomarca da empresa e três botões que chamam formularios, como eu posso fazer isso?
Warnney, muito provável que seja uma planilha desenvolvida com VBA, nos tempos atuais muito se fala em Powerbi, PowerApps, SQL e DATASCIENCE, mas recomendo assim ir fundo no estudo do VBA, pois ainda sim pode fazer maravilhas no Excel. Abraços
Tem como me mandar essa tabela po e-mail cris.tielly@hotmail.com
Gostaria de receber a planilha
Boa tarde meu caro!
Parabéns pelas explicações.
Gostaria de saber se é possível disponibilizar o seu Dashboard para dowload:
Obrigado
pode ser baixado
Boa noite,
Como faço para te encaminhar um E-mail com a minha planilha ?
Preciso deixar ela sempre no modo Full Screen, mas, não estou conseguindo.
Att,
Olá André,
Pode me enviar no douglas@douglasgodoy.com.br.
Se quiser poste aqui a dúvida também.
Um abraço!
Douglas
A ideia é muito boa.
Implementei essa rotina e realmente funcionou o Full Screen, entretanto a função copiar de uma célula de outra planilha dentre da mesma pasta parou de funcionar.
Há uma maneira de implementar esse procedimento e continuar copiando conteúdos de células de outra planilhas? (exemplo: se implementado na “Plan1” é possível copiar uma célula da “Plan2” com “CRTL + C” e “CRTL +V”).
Olá Ferreira,
Geralmente não costuma dar problema ou ter este tipo de problema de copiar e colar.
Acredito que sua planilha esteja com algum problema, caso isso persistir me envie que dou uma olhada! (douglas@douglasgodoy.com.br)
Abs
Douglas
O Problema se minimizar ou maximizar as barras de ferramenta voltam todas.
Olá Jorge,
Depende do objetivo do projeto, existem maneiras de não exibir as barras conforme o projeto.
Estas maneiras são via VBA porém passiveis de aplicação.
Se desejar saber mais me escreva!
Abraços
Muito útil o conteúdo, agora sim meus relatórios ficarão TOPs
Olá Jonathan,
Muito obrigado pela visita e pelo comentário!
Um abraço!
Douglas Godoy
Obrigada! Parabéns pelo conteúdo do site.
Simone,
Muito obrigado pela visita e pelo comentário.
Abs
Muito boa dica. Só esquece de mencionar que no evento antes de fechar o workbook, deve inverter os valores, ficando assim:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayStatusBar = True
End Sub
Dependendo de que for utilizar o código, pode demorar a entender.
Mas corroboro que o código é muito bom e útil.
Abs
Gostaria de saber se é possível disponibilizar este dashboard para download.