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