Amigos, obrigado pela ajuda,
Achei esta macro simples na internet, mas ela só faz a apresentação em tela cheia e os outros conteudos ela limpa na planilha
Sub Macro1()
Application.DisplayStatusBar = False
End Sub
________________________________________________________________________________________________________________
Sub Entrar()
Dim barras, nTela, Cont
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
Aguem sabe de outra?
Obrigado.
Postado : 14/02/2017 6:28 pm