Desabilita botões da janela do excel

[Ingo M P Américo]

Olá pessoal!

 

Dúvida rápida dessa vez: tem como desabilitar os botões da janela do excel, deixando apenas a opção de fechar?

 

Achei vários tutoriais para userform, mas não achei nada para a janela do excel em si.

[Ingo M P Américo]

Ninguém?

[Basole]

 

Seria a faixa de opções (img), que voce quer que fique oculta? 

 

Ficando assim: 

 

Se for isso acima, cole o codigo abaixo, no editor vbe de "EstaPasta_de_trabalho"

 

Private Sub Workbook_Activate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False

End Sub

Private Sub Workbook_Deactivate()

    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayWorkbookTabs = True

End Sub

 

 

[Ingo M P Américo]

@Basole Obrigado pela resposta!

 

Eu já estou utilizando o código abaixo e me pareceu surtir o mesmo efeito.

 

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

O que gostaria mesmo, é desabilitar ou remover os botões que ficam ao lado do botão de fechar.

 

 

[Basole]

Remover os botões acredito que usando api. 

Mas tente esta opção que restaura a janela quando o usuário tenta minimizar a janela:

 

Private Sub Workbook_WindowResize(ByVal Wn As Window)
    With Excel
      .Application.ScreenUpdating = False
      .Application.EnableEvents = False
    
            Wn.WindowState = xlMaximized

      .Application.EnableEvents = True
      .Application.ScreenUpdating = True
    End With 
End Sub

 

[Ingo M P Américo]

@Basole Funcionou! Obrigado mais uma vez!

 

Fiz algumas modificações para que a janela fique sempre em fullscreen:

 

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
    Application.OnKey "{Escape}", ""
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Wn.WindowState = xlMaximized
    Application.DisplayFullScreen = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
End Sub