Desactivar Barras de Menu

26/12/2003 - 14:46 por Patricia | Informe spam
Saludos cordiales, Mi inquietud es la siguiente : Tengo un libro en el que he ocultado las etiquetas de las hojas y mediante botones de accion puedo pasar de una hoja a otra, grabar y hacer lo que necesito que haga en cada hoja
mi pregunta es : por código cómo defino que al abrir el libro se desactive la barra de menú
gracias por su ayuda
Patricia - Colombia
 

Leer las respuestas

#1 Héctor Miguel
29/12/2003 - 20:26 | Informe spam
hola, Patricia !

... libro ... he ocultado las etiquetas ... y mediante botones ... puedo ... hacer lo que necesito [...]
... por codigo como defino que al abrir el libro se desactive la barra de menu?



inclusive al ampliar al maximo el 'campo visual' [FullScreen] es necesario 'mantener visible' la barra de menus activa :((
'a menos que...' => 1° 'minimizes' la aplicacion => 2° la vuelvas 'invisible' y => 3° la vuelvas a 'maximizar' :))
las siguientes lineas de codigo te daran el maximo 'campo visual' para 'ese' libro, pero considera que...
1.- 'veras' un 'parpadeo' durante el proceso de minimizar y volver a maximizar la aplicacion [quizas 'molesto']
2.- mostrar u ocultar los encabezados de fila y columna 'dependera' de la configuracion de cada hoja
en el modulo del libro -ThisWorkbook- ==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

saludos,
hector.

Preguntas similares