Ocultar barra de titulo excel 2007
Como podría ocultar la barra de titulo en 2007
Tengo la sig aplicasion la cual me funciona bien en 2003 pero en 2007 no me oculta la barra de titulo
Dim bState As Boolean
Dim sStart As Single
Sub FullScreenON()
On Error Resume Next
sStart = True
bState = True
Do While bState
sStart = Timer
Do While (bState And Timer < sStart + 1)
DoEvents
Loop
If Application.DisplayFullScreen = False Then
With Application
.DisplayFullScreen = True
.CommandBars("Worksheet Menu Bar").Enabled = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
'Bar of title
.Displaybaroftitle = False
End With
End If
Loop
End Sub
2 respuestas
Ahí tienes la forma de habilitar (true) y deshabilitar (false) las distintas barras .
'barra Estándar (la de los botones Nuevo, Abrir, Guardar, etc)
Application.CommandBars("Standard").Visible = True
'barra Formato
Application.CommandBars("Formatting").Visible = True
'habilita el botón derecho del mouse en celda y la siguiente en la barra
Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Toolbar List").Enabled = True
'habilita la tecla escape
Application.EnableCancelKey = xlInterrupt
'habilita la barra dondes se muestran las hojas
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Sheets(1).Protect Password:="1610"
Application.ScreenUpdating = True
Application.DisplayAlerts = False
'habilita la tecla escape
Application.EnableCancelKey = xlInterrupt
Visita www.programarexcel.com. encontraras ejemplos de macros que puedes descargar.
Agradezco tu respuesta, pero hice pruebas con lo que me enviaste y no aculta la barra de titulo, la que muestra el nombre del archivo, en el extremo de la derecha están los botones para minimizar, restaurar y cerra
es lo que me interesa ocultar.
Saludos!
Es medio difícil con vba hacer lo que requieres, se pueden ocultar todas las barras de Excel como te pasé en los códigos de arriba.
Fijate en este articulo si te sirve
http://support.microsoft.com/kb/550091/es
visita http://programarexcel.com
