No mostrar el nombre del archivo en la barra de Excel.

Al cargarlo modifica el Application.windows.caption = "Tu titulo :)


Lo escribo de memoria :)

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France

hola, jose !

Como puedo hacer para que en la barra de la aplicación Excel no me aparezca el nombre del archivo?
(Entiendo como barra de la aplicación la barra superior donde pone Microsoft Excel - Libro1
y a la derecha estan los botones de minimizar, maximizar y cerrar. Explico esto por si acaso!!!)

si quieres 'dejar' el titulo original de la aplicacion [Microsoft Excel] y desaparecer SOLO el nombre del libro...
copia/pega lo siguiente en el modulo de codigo de 'ese' libro [ThisWorkbook]

Private Sub Workbook_Open()
Me.Windows(1).Caption = ""
End Sub

si quieres reemplazar TODO el caption de la ventana... usa: -> Application.Caption

si quieres 'devolverle' el nombre al libro... sustituye el "" por: -> Me.Name

saludos,
hector.

Hola Hector que tal?

si quieres reemplazar TODO el caption de la ventana... usa: -> Application.Caption

Este código lo conocia pero lo que me hace es cambiar el texto
"Microsoft Excel" por el qeu yo ponga pero me aparece también el
nombre del libro.
Lo que no conocia era ...Windows(1).Caption... esto es lo que buscaba

Osea que para quitar todo el texto del caption seria así (por si le
interesa a alguien más):

Private Sub Workbook_Open()
Me.Windows(1).Caption = "" 'También acepta Application en vez de Me
Application.Caption = " " 'Si no dejas espacio te aparece el guión [-]
End Sub

Si hay alguna corrección al respecto me gustaria conocerla.
Gracias y un saludo,
jose

On 17 feb, 07:18, "Héctor Miguel"
wrote:

hola, jose !

> Como puedo hacer para que en la barra de la aplicación Excel no me aparezca el nombre del archivo?
> (Entiendo como barra de la aplicación la barra superior donde pone Microsoft Excel - Libro1
> y a la derecha estan los botones de minimizar, maximizar y cerrar. Explico esto por si acaso!!!)

si quieres 'dejar' el titulo original de la aplicacion [Microsoft Excel] y desaparecer SOLO el nombre del libro...
copia/pega lo siguiente en el modulo de codigo de 'ese' libro [ThisWorkbook]

Private Sub Workbook_Open()
Me.Windows(1).Caption = ""
End Sub

si quieres reemplazar TODO el caption de la ventana... usa: -> Application.Caption

si quieres 'devolverle' el nombre al libro... sustituye el "" por: -> Me.Name

saludos,
hector.

hola, jose !

Osea que para quitar todo el texto del caption seria así (por si le interesa a alguien mas):
Private Sub Workbook_Open()
Me.Windows(1).Caption = "" 'También acepta Application en vez de Me
Application.Caption = " " 'Si no dejas espacio te aparece el guión [-]
End Sub
Si hay alguna correccion al respecto me gustaria conocerla.

solo una observacion [aunque si la usas en el evento '_open' de un libro probablemente no le afecte] :)
la diferencia entre Application.Windows(1).Caption
o cambiarla por un Me.Windows(1).Caption
-> es cual sea el libro que esta como ventana 'activa' en la aplicacion -?-
con el Application NO es 'necesariamente' la ventana del libro que 'quisieras'
con el Me [o cualquier otro objeto de tipo Workbook] SI es precisamente la ventana 'del libro' [con el codigo] ;)

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