


Sub Test()
With ActiveWindow
.DisplayHeadings = False
End With
With Application
.DisplayFullScreen = True
.ShowStartupDialog = False
.ShowWindowsInTaskbar = False
.CommandBars("Full Screen").Visible = False
End With
End Sub


Sub Test()
With ActiveWindow
.DisplayHeadings = False
End With
Application.DisplayFullScreen = True
End Sub




Usuarios navegando por este Foro: alvaro77, Bing [Bot], Google [Bot] y 12 invitados