Full pantalla + barra personalizada

hola, Edixon !

Mostrar la cita

... esta macro... para ver... full pantalla (en parte es lo que quiero), el detalle es que yo tengo una barra personalizada
... que esta barra apareciera en la prate superior como si fuera la barra de menu (archivo, edicion,ver,etc.)
aparte la barra de desplazamiento vertical ya que tengo bastante filas con datos y me conviene utilizarla [...]

1) si vas a necesitar una barra de menus [distinta de la 'estandar'] que ya tienes 'posicionada' en su correspondiente area...
no es necesario 'manipular' la visibilidad de la aplicacion [excel] PERO...
te quedaras con 'el riesgo' de que los menus 'estandar' puedan ser utilizados/mostrados/... por el usuario:-(( <= OJO [p.e.]:
con solo pulsar la tecla {Alt}+{Down} y empezar a 'navegar' por los menus/comandos disponibles en el area de una barra de menus
[ademas de que quedaran 'a su disposicion' el resto de las opciones disponibles en una 'area' para 'estacionar' barras de comandos] :-(

2) modifica el procedimiento 'secundario' +/- a lo situiente:

Private Sub MostrarTodo(ByVal Mostrar As Boolean)
With Application
.DisplayFullScreen = Not Mostrar
.CommandBars("worksheet menu bar").Enabled = Mostrar
.CommandBars("full screen").Enabled = Mostrar
.CommandBars("mi menu").Visible = Not Mostrar
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __
Mostrar la cita

Private Sub Workbook_Activate()
MostrarTodo False
End Sub
Private Sub Workbook_Deactivate()
MostrarTodo True
End Sub
Private Sub MostrarTodo(ByVal Mostrar As Boolean)
With Application
.ScreenUpdating = False
.DisplayFullScreen = Not Mostrar
.DisplayScrollBars = Mostrar
.WindowState = xlMinimized
.Visible = Mostrar
.WindowState = xlMaximized
End With
End Sub