ayuda con codigo

hola, DANILO !

Mostrar la cita

Es posible desde codigo asignar una macro a un objeto (control) de una barra de herramientas personalizada.

puedes utilizar la propiedad 'OnAction' aplicada a dicho control para indicarle el nombre del procedimiento [p.e.]
Application.CommandBars("nombre de la barra").Controls(1).OnAction = "EstaMacro"

solo toma en cuenta que dicho boton quedara 'casado' a esa macro Y AL LIBRO que la contiene :)

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

Hola HM

Es justo lo que necesitoMuchas gracias.

Tengo otro problemita: :-))
tengo este codigo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars("plantilla susalud")
.Controls("Abrir Plantilla").Enabled = True
.Controls("Aplicarformato").Enabled = False
.Controls("F. 326").Enabled = False
With .Controls("guardar archivo")
.Controls("Guardar Archivo Plano .txt").Enabled = False
.Controls("Guardar Como .PRN, XLS").Enabled = False
End With
With .Controls("Encab. y Totales")
.Controls("Apl. Encab y totales").Enabled = False
.Controls("Apl. Totales").Enabled = False
End With

End With
End Sub

El problema que tengo es que cuando se va cerrar el libro, pero este no se
cierra si no que se cancela, de todas maneras me pone los controles de la
barra de H. en false.

Gracias por tu ayuda.

Saludos


"Héctor Miguel" escribió:

Mostrar la cita

hola, DANILO !

> Es posible desde codigo asignar una macro a un objeto (control) de una barra de herramientas personalizada.

puedes utilizar la propiedad 'OnAction' aplicada a dicho control para indicarle el nombre del procedimiento [p.e.]
Application.CommandBars("nombre de la barra").Controls(1).OnAction = "EstaMacro"

solo toma en cuenta que dicho boton quedara 'casado' a esa macro Y AL LIBRO que la contiene :)

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

hola, DANILO !

Mostrar la cita

Tengo otro problemita: :-)) ... este codigo:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars("plantilla susalud")
.Controls("Abrir Plantilla").Enabled = True
.Controls("Aplicarformato").Enabled = False
.Controls("F. 326").Enabled = False
With .Controls("guardar archivo")
.Controls("Guardar Archivo Plano .txt").Enabled = False
.Controls("Guardar Como .PRN, XLS").Enabled = False
End With
With .Controls("Encab. y Totales")
.Controls("Apl. Encab y totales").Enabled = False
.Controls("Apl. Totales").Enabled = False
End With
End With
End Sub
... cuando se va cerrar el libro, pero este no se cierra si no que se cancela
de todas maneras me pone los controles de la barra de H. en false.

1) prueba a mover los codigos de los siguientes eventos...
de -> Workbook_Open
a -> Workbook_WindowActivate

de -> Workbook_BeforeClose
a -> Workbook_WindowDeactivate

2) prueba con un 'tip' para 'administrar/manejar' el evento '_beforeclose' de John Walkenbach
Handling the Workbook BeforeClose Event
http://j-walk.com/ss/excel/tips/tip78.htm

saludos,
hector.

hola [de nuevo], DANILO !

Mostrar la cita

1) prueba a mover los codigos de los siguientes eventos...
de -> Workbook_Open
a -> Workbook_WindowActivate

de -> Workbook_BeforeClose
a -> Workbook_WindowDeactivate

OJO: solo los codigos de activacion o desactivacion de los botones...
NO los de la 'creacion' de las barras :))

saludos,
hector.