No mostrar u ocultar barra de tareas
Dante :
Ejecuto un Formulario para realizar diversas acciones, todo está perfecto, salvo que en la parte inferior de la pantalla de mi PC se muestra la Barra de Tareas (Menú Inicio y otros accesos) maximizé el formulario pero igual sigue mostrando, favor indicarme que hacer ( macro, instrucciones, etc y en qué evento ). Uso Excel 2013. Asimismo en una hoja1 tengo botones de comando, desearía también no mostrar la Barra de Herramientas o las que están en la parte superior.
1 Respuesta
Respuesta de Dante Amor
1
Prueba el siguiente código para abrir tu formulario, lo que hace es ocultar las barras y abri el formulario Userform1
Sub oculta()
'Por.DAM
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.ShowStartupDialog = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With
UserForm1.Show
End SubPara mostrar nuevamente las barras:
Sub muestra()
'Por.DAM
Application.DisplayFullScreen = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.ShowStartupDialog = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With
End SubRevisa si es lo que necesitas, si es así, recuerda valorar la respuesta.
