Bom dia!!
Usa a pesquisa do fórum!!
Private Sub Workbook_Open()
If Not (ThisWorkbook Is ActiveWorkbook) Then Exit Sub
ActiveWindow.WindowState = xlMaximized
Application.WindowState = xlMaximized
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Enabled = True
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 30/10/2017 5:04 am