personalizar la aplicación

05/01/2004 - 00:19 por alejandro | Informe spam

Hola estimados colegas.

Bueno, tengo varios libros que se vinculan entre ellos y
quiero que al abrir el libro principal, tenga una
apariencia diferente, es decir, sin barras de
herramientas, solo los menús. Esto lo habia conseguido
poniendo en el código:

<Private Sub Workbook_BeforeClose(Cancel As Boolean)
<Application.DisplayFullScreen = False
<Application.ActiveWindow.DisplayHeadings = True
<Application.Quit
<With ThisWorkbook

< .Close
<End With

<End Sub

Pero claro, cuando estoy en otro libro y lo cierro,
vuelvo al libro principal pero con todas las barras otra
vez. Sé que hay una manera, tengo un libro que lo pone
pero es un follón y no entiendo nada.

Alguien sabe un código más sencillo?

Muchas gracias
alejandro

Siga el debate

1 respuesta

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Héctor Miguel

05/01/2004 - 06:22 | Informe spam

hola, alejandro !

... que al abrir el libro principal ... apariencia ... sin barras de herramientas, solo los menus [...]
... cuando estoy en otro libro y lo cierro, vuelvo al libro principal pero con todas las barras otra vez.
... una manera ... un codigo ... sencillo?

copia las siguientes lineas en el modulo de codigo 'del libro' [principal]
Private Sub Workbook_Activate()
With Application
.ScreenUpdating = False
.DisplayFullScreen = True
.CommandBars("Full Screen").Visible = False
.DisplayScrollBars = False
End With
ActiveWindow.DisplayHeadings = False
End Sub
Private Sub Workbook_Deactivate()
With Application
.ScreenUpdating = False
.CommandBars("Full Screen").Visible = True
.DisplayFullScreen = False
.DisplayScrollBars = True
End With
End Sub

==> 'toma nota' que mostrar [u ocultar] los encabezados de fila y columna...
es una 'propiedad' DE CADA HOJA [en el libro], NO del libro 'en si'
si el libro [principal] tiene varias hojas [...] -???-

saludos,
hector.

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :