Full pantalla + barra personalizada

19/11/2006 - 14:31 por Edixon | Informe spam
Hola amigos use esta macro que de nuestro amigo Hector para ver el
excel full pantalla(en parte es lo que quiero), el detalle es que yo
tengo una barra personalizada, quisiera que esta barra apareciera en la
prate superior como si fuera la barra de menu (archivo,
edicion,ver,etc.), a parte la barra de desplazamiento vertical ya que
tengo bastante filas con datos y me conviene utilizarla, la macro de
nuestro amigo esla siguiente(esta en nuestro grupo). Gracias por su
ayuda de antemano.

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

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
19/11/2006 - 23:52 | Informe spam
hola, Edixon !

... 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 __
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
Respuesta Responder a este mensaje
#2 Edixon
20/11/2006 - 03:04 | Informe spam
Gracias Hector es lo necesito pero tienes razon,se puede habilitar de
nuevo todos los demas menu(no me conviene),
lo que necesito es que los tengan acceso al documento(es bastante
gente), solo puedan Guardar,imprimir,actualizar todo(hay un enlace con
datos externos) y salir. ahhhhh! y que visualize la barra de
desplazamientovertical.

Gracias por tu ayuda
Respuesta Responder a este mensaje
#3 Héctor Miguel
20/11/2006 - 05:06 | Informe spam
hola, Edixon !

... tienes razon,se puede habilitar de nuevo todos los demas menu (no me conviene)
lo que necesito es que los tengan acceso al documento (es bastante gente)
solo puedan Guardar,imprimir,actualizar todo (hay un enlace con datos externos) y salir.
ahhhhh! y que visualize la barra de desplazamientovertical.



1) para que se vean las barras de desplazamiento...solo elimina la linea con la instruccion: -> DisplayScrollBars

2) para el resto de las cosas que necesitas 'permitirles'..
o les provees algunas macros [quizas] asignadas a botones y/o a atajos de teclado...
o les informas que -todos- los atajos de teclado 'siguen ahi'...
[guardar = ctrl+G, imprimir = ctrl+P, salir = ctrl+{F4}, etc. etc. etc.] ;)

saludos,
hector.
Respuesta Responder a este mensaje
#4 Edixon
20/11/2006 - 13:02 | Informe spam
Fue lo que pense gracias por tu ayuda es lo que necesito
Respuesta Responder a este mensaje
#5 Edixon
23/11/2006 - 03:54 | Informe spam
Hola hector, mira se me produjo un problemita, yo uso Oficce xp,
algunas hojas del proyecto estan bloqueadas y cuando coloco la macro
para que no se vean los menu quedan bloqueadas igualmente, hasta alli
todo perfecto, el problema que tengo es que el proyecto lo estoy usando
en otro pc que usa oficce 2000 y cuando coloco la macro para que se
vea full la pantalla (sin menu) las hojas bloqueadas se desbloquean
automaticamente no se que pasa :(

Conoces alguna macro que me haga la misma funcion que ctrl+p ya que
muchas personas no saben estos atajos y ya que no se ven los menu tengo
que asignar a una imagen esta funcion.

Gracias por tu ayuda de antemano
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida