Ocultamiento de menús - Pantalla completa

Hola a todos, he visto un método para hacer que Excel pase a pantalla
completa pero la verdad que el efecto de minimizar-maximizar no me gusta
para nada. Y aparte tiene el problema que al minimizar y maximizar otra

aparece visible la barra de fórmulas.

Estuve intentando por este lado pero queda un código con bastantes
limitaciones y sobre todo hay que estar trabajando con la barra de menú

no me deja ocultarla).

¿Se le ocurre algo mejor a alguien? De paso otra cosa que no pude es
utilizar un For each control para ocultar los elementos del Menú en lugar

ocultarlos uno por uno. ¿Cómo sería la forma correcta? (excluyendo un

for con un indice)

Saludos.
Adriano D'Ambra
Expert MOUS - Analista en Informática
Coord. de Capacitación Informática
Dpto. de Informática
Universidad FASTA


Nota: Se llama a MostrarTodo desde el Activate del libro con True como
parámetro

Sub OcultaTodasMenos(NombreHoja)
'Oculta todas las hojas menos la que sea necesaria
Dim HOJA As Worksheet

Sheets(NombreHoja).Visible = True
Sheets(NombreHoja).Select
For Each HOJA In Sheets
If UCase(HOJA.Name) <> UCase(NombreHoja) Then HOJA.Visible = False
Next HOJA
Sheets(NombreHoja).Select
End Sub

Sub MuestraTodas()
Dim HOJA As Worksheet

For Each HOJA In Sheets
HOJA.Visible = True
Next HOJA
End Sub

Sub MostrarTodo(ByVal Mostrar As Boolean)
'Dim MiControl As CommandBarControl

With Application
.ScreenUpdating = False
'.DisplayFullScreen = Not Mostrar
.DisplayScrollBars = Mostrar
.DisplayFormulaBar = Mostrar
.DisplayStatusBar = Mostrar
'.WindowState = xlMinimized
'.Visible = Mostrar
'.WindowState = xlMaximized
.CommandBars("Drawing").Visible = Mostrar
.CommandBars("Formatting").Visible = Mostrar
.CommandBars("Standard").Visible = Mostrar
'If Mostrar Then
' .CommandBars("Worksheet Menu Bar").Controls(1).Delete
'Else
' .CommandBars("Worksheet Menu Bar").Controls.Add
Type:=msoControlButton, ID:u2, Before:=1
'End If

'For Each MiControl In .CommandBars("Worksheet Menu Bar")
' MiControl.Visible = Mostrar
'Next MiControl
.CommandBars("Worksheet Menu Bar").Controls(1).Visible = Mostrar
.CommandBars("Worksheet Menu Bar").Controls(2).Visible = Mostrar
.CommandBars("Worksheet Menu Bar").Controls(3).Visible = Mostrar
.CommandBars("Worksheet Menu Bar").Controls(4).Visible = Mostrar
.CommandBars("Worksheet Menu Bar").Controls(5).Visible = Mostrar
.CommandBars("Worksheet Menu Bar").Controls(6).Visible = Mostrar
.CommandBars("Worksheet Menu Bar").Controls(7).Visible = Mostrar
.CommandBars("Worksheet Menu Bar").Controls(8).Visible = Mostrar
.CommandBars("Worksheet Menu Bar").Controls(9).Visible = Mostrar
.CommandBars("Worksheet Menu Bar").Controls(10).Visible = Mostrar
End With
End Sub