Perdi una barra de herramientas por medio de un macro

07/07/2006 - 01:29 por QUINTA | Informe spam
al abrir un archivo de excel (office XP) que tenia un macro que ponia la
pantalla en fullscreen y desactivaba las barras de herramientas para que
quedara completo el archivo, al cerrar el archivo el macro ponia las pantalla
normal y activaba las barras de herramientas. el problema es que ahora cada
ves que abro la barra menu de herramientas ( la que trae archivo, edicion,
view, insert etc) no aparece entonces debo de correr la siguiente sentencia
para que aparesca la barra: Application.CommandBars.ActiveMenuBar.Enabled =
true. el problema es que cuando cierro la aplicacion y vuelvo a abrir excel
no aparece la barra, uds me podrian ayudar con esto??? a continuacion adjunto
el macro que tenia el archivo

Sub FullScreen()
'
' FullScreen Macro
' Macro recorded 17/06/2005 by Panamco_Brasil
'
'
Application.CommandBars.ActiveMenuBar.Enabled = False
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.DisplayFormulaBar = False

With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With

End Sub



y el de poner la pantalla normal es:


Sub NormalScreen()
'
' volta Macro
' Macro gravada em 16/6/2005 por
'

Application.CommandBars.ActiveMenuBar.Enabled = True
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True

With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With

End Sub
 

Leer las respuestas

#1 Héctor Miguel
07/07/2006 - 05:33 | Informe spam
hola, 'anonimo/a' !

... un archivo... que ponia la pantalla en fullscreen
... al cerrar el archivo el macro ponia las pantalla normal y activaba las barras de herramientas
... ahora cada... que abro la barra menu... no aparece entonces debo de correr la siguiente sentencia
... Application.CommandBars.ActiveMenuBar.Enabled = true
... cuando cierro la aplicacion y vuelvo a abrir excel no aparece la barra
... adjunto el macro que tenia el archivo



solo 'asegurate' que ese archivo haga una 'llamada' a la macro que devuelve el menu a la normalidad
-> en el evento '_beforeclose' [en el modulo de codigo ThisWorkbook] ;)

saludos,
hector.

__ los codigos expuestos __
Sub FullScreen()
Application.CommandBars.ActiveMenuBar.Enabled = False
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.DisplayFormulaBar = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With
End Sub
y el de poner la pantalla normal es:
Sub NormalScreen()
Application.CommandBars.ActiveMenuBar.Enabled = True
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With
End Sub

Preguntas similares