Barra

hola, Luis !

en una hoja de calculo excel 2003, en la barra de herramienta agregue una linea que a traves de una macro hace una funcion.
esta barra de herramientas aparece en todos los libros nuevos con esta linea
lo que deseo es que solo salga en este libro en concreto, no en los posteriores se puede lograr?

no comentas cual "barra de herramientas" y/o si se trata de una barra (nueva) personalizada o solo de un boton agregado (?)
en via de mientras, prueba agregando tu barra de herramientas personalizada (con el o los botones necesarios)
y la "adjuntas" a tu libro (asumiendo que la barra es para uso exclusivo de cierto libro)

paso1: adjunta tu barra de menus ->al archivo<- (p.e. el que contiene las rutinas)
-> (menu) herramientas / personalizar / (ficha) barras de herramientas / (boton) adjuntar...
seleccionas la barra... pulsas en copiar >>... aceptas... cierras... y guardas el libro
(con esto te aseguras que tu barra pesonalizada vaya acompañando a tu libro... siempre) ;)

paso2: (opcional, por si quieres que dicha barra NO se quede con otro usuario/equipo donde se abra)...
ahora... asegurate de que el proyecto de macros incluya las siguientes instrucciones
en el modulo de codigo del libro (ThisWorkbook) ==Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("nombre de la barra").Delete ' <= pon aqui el nombre de la barra
End Sub

paso3: somo supongo que dicha barra NO es necesaria cuando el libro NO es el libro activo...
asegurate de agregar las siguientes instrucciones/macros...
en el modulo de codigo del libro (ThisWorkbook) ==Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CommandBars("nombre de la barra").Visible = True ' <= pon aqui el nombre de la barra
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CommandBars("nombre de la barra").Visible = False ' <= pon aqui el nombre de la barra
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

p.d. si necesitas informacion adicional para trabajar con barras de herramientas...
(ademas de consultar en el foro)... prueba visitando los siguientes sitios...
-> http://www.erlandsendata.no/english...?t=envbacb
-> http://j-walk.com/ss/excel/tips/commandbars.htm
-> http://www.cpearson.com/excel/menus.htm
(incluso podras descargar ejemplos)

Hola Hector:
Esta es una barra de menus agregada al libro, como tu dices, solo la quiero
ver en este libro concreto, NO en los otros posibles.
Esta macro, es lo que estaba buscando
Como siempre, te estoy muy agradecido
Luis


"Héctor Miguel" escribió:

hola, Luis !

> en una hoja de calculo excel 2003, en la barra de herramienta agregue una linea que a traves de una macro hace una funcion.
> esta barra de herramientas aparece en todos los libros nuevos con esta linea
> lo que deseo es que solo salga en este libro en concreto, no en los posteriores se puede lograr?

no comentas cual "barra de herramientas" y/o si se trata de una barra (nueva) personalizada o solo de un boton agregado (?)
en via de mientras, prueba agregando tu barra de herramientas personalizada (con el o los botones necesarios)
y la "adjuntas" a tu libro (asumiendo que la barra es para uso exclusivo de cierto libro)

paso1: adjunta tu barra de menus ->al archivo<- (p.e. el que contiene las rutinas)
-> (menu) herramientas / personalizar / (ficha) barras de herramientas / (boton) adjuntar...
seleccionas la barra... pulsas en copiar >>... aceptas... cierras... y guardas el libro
(con esto te aseguras que tu barra pesonalizada vaya acompañando a tu libro... siempre) ;)

paso2: (opcional, por si quieres que dicha barra NO se quede con otro usuario/equipo donde se abra)...
ahora... asegurate de que el proyecto de macros incluya las siguientes instrucciones
en el modulo de codigo del libro (ThisWorkbook) ==> Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("nombre de la barra").Delete ' <= pon aqui el nombre de la barra
End Sub

paso3: somo supongo que dicha barra NO es necesaria cuando el libro NO es el libro activo...
asegurate de agregar las siguientes instrucciones/macros...
en el modulo de codigo del libro (ThisWorkbook) ==> Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CommandBars("nombre de la barra").Visible = True ' <= pon aqui el nombre de la barra
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CommandBars("nombre de la barra").Visible = False ' <= pon aqui el nombre de la barra
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

p.d. si necesitas informacion adicional para trabajar con barras de herramientas...
(ademas de consultar en el foro)... prueba visitando los siguientes sitios...
-> http://www.erlandsendata.no/english...?t=envbacb
-> http://j-walk.com/ss/excel/tips/commandbars.htm
-> http://www.cpearson.com/excel/menus.htm
(incluso podras descargar ejemplos)