Bloquear Botones de Barra de Herramientas

12/04/2005 - 19:25 por DANILO ARANGO | Informe spam
Hola a todos..
Tengo una barra personalizada y quiero que la cerrar el libro que la utiliza
se desabiliten algunos de los botones de la barra, Se puede hacer esto..

GRACIAS DE ANTEMANO!!!!!
 

Leer las respuestas

#1 Héctor Miguel
13/04/2005 - 03:19 | Informe spam
hola, Danilo !

... barra personalizada... que al cerrar el libro que la utiliza se desabiliten algunos de los botones [...]



[creo que] la forma 'menos complicada' seria la siguiente...
si cualquier duda... o quisieras seguir por un camino 'menos sencillo'... ¿comentas?
saludos,
hector.

-> si 'el resto' de los botones [que pudiera tener la barra] pueden ser utilizados por 'otros' libros...
puedes establecer la propiedad '.Enabled' en True/False
aplicandosela a un objeto 'Control' [de la coleccion comandbarcontrols]
[obviamente] indicando al codigo cual es la barra donde se encuentran
[p.e.] Application.CommandBars("Nombre de la barra").Controls(1).Enabled = True '...o False'
[p.e.] Application.CommandBars("Nombre de la barra").Controls("Caption del control").Enabled = True '...o False'
-> 'tendrias que' establecerla en True al abrir/activar el libro y en False al cerrar/desactivar el libro

-> si la barra es para uso 'exclusivo' de dicho libro...
paso1: 'adjunta' tu barra de menus ->al archivo<-
-> [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: 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

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