Macro para personalizar barra de herramientas

Hola Dalia:
Coloca este codigo en el objeto ThisWorkBook, esto te desahabilita esas
opciones
pero ten en cuenta que el nombre "Edit" y "Standar" depende si tu version es
en Ingles
si es español deberia ser "Edición" y "Estándar"

y el numero del index de Control(x) depende que numero de posicion tiene el
control



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Edit").Controls(5).Enabled = True
Application.CommandBars("Edit").Controls(6).Enabled = True

Application.CommandBars("Standard").Controls(9).Enabled = True
Application.CommandBars("Standard").Controls(10).Enabled = True
End Sub

Private Sub Workbook_Open()

Application.CommandBars("Edit").Controls(5).Enabled = False
Application.CommandBars("Edit").Controls(6).Enabled = False

Application.CommandBars("Standard").Controls(9).Enabled = False
Application.CommandBars("Standard").Controls(10).Enabled = False

End Sub

Saludos


Ronald E. Sánchez
El Salvador-San Salvador

"Dalia" escribió en el mensaje
news:

Hola, quiero que al abrir determinados archivos la barra de herramientas

no tenga disponibles las opciones de copiar y pegar. Puedo hacer una macro
para que al abrir el archivo me personalice la barra de herramientas?...

Gracias a quien pueda colaborarme...

Un saludo.