Notifications
Clear all

Full Screen, barra de ferramentas e barra de status

3 Posts
3 Usuários
0 Reactions
1,008 Visualizações
(@cazevedo)
Posts: 0
New Member
Topic starter
 

Boa tarde pessoal,

Estou trabalhando em uma planilha na qual queria mostrar os resultado com a tela cheia, sem que as pessoas tenham acesso aos menus de cima, a barra de formula e a barra de status.
Até consigo fazer com a macro abaixo sendo rodada na abertura da planilha e depois o oposto ao fechar a planilha.

Private Sub Workbook_Open()
   Application.DisplayFullScreen = True
   Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
   'Application.DisplayStatusBar = True
End Sub

Mas o meu problema é que se eu estiver com essa planilha aberta e abrir qualquer outra, esta outra seguirá o mesmo formato desta e abrirá com todos os menus ocultos. Eu queria que somente nesta ficasse essa formatação.

Aguardo ajuda.

Obrigado.
abs

 
Postado : 14/06/2017 1:26 pm
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:
no lugar do evento ---> Private Sub Workbook_Open()
coloque ---> Private Sub Workbook_Activate()

e

no lugar do evento ---> Private Sub Workbook_BeforeClose(Cancel As Boolean)
coloque ---> Private Sub Workbook_Deactivate()

 
Postado : 14/06/2017 2:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Cazevedo

Apesar de você já ter um bom tempo de fórum, percebi que não conhece a ferramenta de agradecimento, que marca pontos para os colaoradores, pois a tua está zerada.

Clique no link abaixo para saber como funciona:

viewtopic.php?f=7&t=16757

Te aconselho acessar os outros tópicos que irão facilitar a tua participação no fórum ( regras e outras instruções):
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

 
Postado : 14/06/2017 3:07 pm