Notifications
Clear all

Ajuda Display FullScreen

9 Posts
1 Usuários
0 Reactions
2,120 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola colegas do forum td bem ?

Preciso de uma grande ajuda.
Tenho um formulario no excel que já esta habilitado para quando eu iniciar o excel ele abrir em modo
DisplayFullScreen = True, mais o problema e o seguinte. Eu bloque-ei os botões minimizar e restaurar janela do excel.
Esta td ok.

O problema e que qdo eu clico no icone do excel na barra de tarefas do windows e o excel se esconde na barra de tarefas, qdo eu volto o displayfullscreen esta desabilitado, e isso não pode acontecer como eu faço para que qdo eu voltar ele volte ativo????

No Aguardo

 
Postado : 07/11/2011 12:47 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Dias,

neste caso, creio que seja possível com a manipulação das barras de ferramentas.

 
Postado : 07/11/2011 1:27 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sub Ocultar()
Dim barras
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

End Sub

Sub Reexibir()
Dim barras

Application.EnableCancelKey = xlDisabled
On Error Resume Next

For Each barras In Application.CommandBars
barras.Enabled = True
Next

Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True

End Sub

 
Postado : 07/11/2011 1:35 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Edson
Obrigada pela resposta
mais é que eu quero uma macro que se eu minimizar o excel e for mexer em outros arquivo e depois eu quizer rever o excel clicando no aplicativo do excel que esta na barra de ferramentas o excel abra mais abra ja em modo de exibição cheio.

Vc tem ideia de como fazer isso:?

 
Postado : 07/11/2011 2:28 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Você testou o código acima??

 
Postado : 07/11/2011 2:31 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sim eu testei o evento acima, ele funciona perfeitamente, porem ele funciona se clicarmos nele para executar e não e o que eu quero, eu quero que ele execute automatico.

Tentei colocar no auto_open, mais depois que me dei conta que eu não irei abrir o excel / formulario de novo ele apenas estaria minimizado.
Eu quero q qdo ele tiver minimizado na barra do windows qd ele voltar para forma normal ele continua em tela cheia.

 
Postado : 08/11/2011 4:33 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Desculpe-me, mas não entendi a questão "se clicarmos nele..."
Pode ser que eu esteja perdendo algum passo...

Como você acionava o DisplayFullScreen = True ?

 
Postado : 08/11/2011 8:23 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Daniela, se entendi corretamente, e se estiver utilizando o Excel 2007, de fato as opções de barra não surtirão o efeito desejado, as rotinas que foram postadas apesar de funcionar no 2007 foram criadas para excel 2003 que utiliza Barras, sendo que a partir da versão 2007 utiliza-se Ribbons.

Se o meu entendimento estiver correto, de uma olhada no Tópico abaixo e veja se seria isto:

Erro no codigo VBA para ocultar barra de ferramentas
viewtopic.php?f=10&t=2640

[]s

 
Postado : 08/11/2011 8:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá mauro, realmente era isto mesmo que eu estava precisando muito obrigada pela resposta,

Abraços

 
Postado : 08/11/2011 10:06 am