Planilha em tela cheia

Gostaria saber se é possível, e como, deixar Planilha sempre em tela cheia, mesmo quando minimizar e restaurar (ela está no modo tela cheia, mas quando minimizar para fazer outra coisa e volta, ela já volta a mostrar a barra de ferramentas).

Agradeço a ajuda antecipadamente.

Boa noite!!!

faça as adaptações necessárias.


Na postagem para ocultar observe que tem que alterar os valores de "false" para "true"

Use esse comando

Código:

ActiveWindow.WindowState = xlMaximized

alexandrevba escreveu:

Boa noite!!!

faça as adaptações necessárias.


Na postagem para ocultar observe que tem que alterar os valores de "false" para "true"

Use esse comando

Código:

ActiveWindow.WindowState = xlMaximized

______________________________

Eu estou utilizando o código abaixo, mas funciona 100%. Como faço?

Sub auto_open()

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
Application.ScreenUpdating = True

End Sub

Boa noite!!!

Tente..

Código:

Sub auto_open()

Dim barras, nTela, Cont

On Error Resume Next

For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
Application.ScreenUpdating = True

End Sub

Boa noite!!!

Tente..

Código:

Sub auto_open()

Dim barras, nTela, Cont

On Error Resume Next

For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
Application.ScreenUpdating = True

End Sub

Ainda não resolveu...

alexandrevba escreveu:

Boa noite!!!

Tente..

Código:

Sub auto_open()

Dim barras, nTela, Cont

On Error Resume Next

For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
Application.ScreenUpdating = True

End Sub

Bom dia!

Ao abrir o Editor VBA (EVBA), com o comando Alt+ F11 do lado esquerdo dê 2 click's em EstaPasta_De_Trabalho.

Cole o código lá dentro

Coloquei mas não deu certo...
Será que teria como fazer com que os códigos da auto_open sejam executados a cada 1 seg? Porque desta forma mesmo se o usuário minimizasse a tela e voltasse, quando fosse executado voltaria para o modo tela cheia.

alexandrevba escreveu:

Bom dia!

Ao abrir o Editor VBA (EVBA), com o comando Alt+ F11 do lado esquerdo dê 2 click's em EstaPasta_De_Trabalho.

Cole o código lá dentro

Boa noite!!

use

Código:

Private Sub Workbook_Open()
    Application.OnTime TimeValue("00:00:01"), "o nome da sua Macro aqui"

End Sub

Coloquei dentro de Esta pasta de trabalho mas não deu certo...

alexandrevba escreveu:

Boa noite!!

use

Código:

Private Sub Workbook_Open()
    Application.OnTime TimeValue("00:00:01"), "o nome da sua Macro aqui"

End Sub

Tem como postar seu arquivo?

repleto de detalhes do que precisa