Barra de herramientas personalizada

02/06/2006 - 21:49 por Arturo | Informe spam
Hola gente!.
Tengo una planilla con macros y barras de herramietas personalizadas con
botones para ejecutarlas adjuntadas a esa planilla.
Como hago para que al abrir excel con documento nuevo o al abrir cualquier
otra planilla no aparezcan las barras de herramientas aquellas, ya que no
sirven para otros documentos. Esto sucede aunque no esté abierta la planilla
que tiene adjuntas las barras de herramientas.
Muchas gracias y saludos,
 

Leer las respuestas

#1 Héctor Miguel
03/06/2006 - 06:42 | Informe spam
hola, Arturo !

Tengo una planilla con macros y barras de herramietas personalizadas con botones para ejecutarlas adjuntadas a esa planilla.
Como hago para que al abrir excel con documento nuevo o al abrir cualquier otra planilla no aparezcan las barras de herramientas aquellas
ya que no sirven para otros documentos. Esto sucede aunque no esta abierta la planilla que tiene adjuntas las barras de herramientas.



-> si la barra es para uso 'exclusivo' de 'cierto' libro...
[supongo que el 'paso1' ya lo hiciste, es solo por si las dudas]...

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 le 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]

Preguntas similares