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.

Ronald por favor sacame de mi ignorancia
Mi version de Excel esta en español y los numeros que corresponden a los controles no me coinciden ... como hago para saber a que numero corresponden de acuerdo al indice de control(x)??
Gracias por tu ayuda..


Hola Dalia
Coloca este codigo en el objeto ThisWorkBook, esto te desahabilita esa
opcione
pero ten en cuenta que el nombre "Edit" y "Standar" depende si tu version e
en Ingle
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 e
contro



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

Application.CommandBars("Standard").Controls(9).Enabled = Tru
Application.CommandBars("Standard").Controls(10).Enabled = Tru
End Su

Private Sub Workbook_Open(

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

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

End Su

Saludo


-
Ronald E. Sánche
El Salvador-San Salvado

"Dalia" escribió en el mensaj
news:

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

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

Gracias a quien pueda colaborarme..

Un saludo

Dalia Saludos
Yo no uso el index del control , sino su nombre, por
ejemplo :(Lo aprendí de HM)
Para deshabilitar la opción "Copiar" del menú contextual
que aparece con el click derecho en una hoja de calculo:

sub prueba()
with commandbars("cell")
.controls("Copiar").enable= false 'desabilito Copiar
.controls("Pegar").visible= false 'oculto Pegar
end with
end sub

En este caso también pudieras no permitir que se muestre
este menú contextual haciendo Cancel=true en el evento
Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean) de la hoja que desees o del libro ?Según lo
que quieras.
Al final de este mensaje te copié la respuesta del
EXCELentísimo señor HM a "Diana" el día 21/11/03,que te
puede esclarecer aún más.

Otra opción que tendrías que eliminar sería Control+C,
esto con el metodo OnKey del objeto application etc etc,
de todas formas opino que para deshabilitar todas las
opciones de copiar y pegar por esa vía es algo engorroso,
no estoy totalmente seguro quizás fuera más facil
deshabilitar la selección en la hoja , por las propiedades
de la hoja (en el IDE de VBA),propiedad Enableselection
escoger XlNoselection, y creo que al no poder seleccionar
nada en la hoja pues no puede copiar, ni pegar ok?.

Saludos Pepito I
"No solo sé bueno , sé bueno en algo" Padre Pico

Nota:Respuesta de HM a Diana 21/11/2003

Hola, Diana !

Como puedo deshabilitar o desaparecer las

opciones "Grabar" y "Grabar Como" del "Archivo"

con las siguientes lineas de codigo en alguna macro
o 'evento' los comandos quedan 'atenuados'
[si quieres que NO 'se vean', cambia la
propiedad 'Enabled' por 'Visible'] =>es solo un ejemplo
de 'como'<[. . .]
With CommandBars("File")
.Controls("Guardar").Enabled = False
.Controls("Guardar como...").Enabled = False
End With
[. . .]

Notas:
==> NO OLVIDES 'regresarlos' a 'True' ANTES de salir del
libro que los 'controla' <> los nombres de los comandos 'van' EN EL IDIOMA
[instalado] de la aplicacion <> lo anterior NO 'te asegura' que 'NO puedan' ser 're-
habilitados' [por el usuario] <=
saludos,
Héctor.

P.D. 'ma da la impresion' de que 'tu objetivo va mas alla
de la pregunta' [???]

:-=0,Salu2222222;-)))

Agradezco mucho tu colaboracion, solucionó en parte mi inquietud...
Saludos desde Colombia!



Dalia Saludos
Yo no uso el index del control , sino su nombre, por
ejemplo :(Lo aprendí de HM
Para deshabilitar la opción "Copiar" del menú contextual
que aparece con el click derecho en una hoja de calculo

sub prueba(
with commandbars("cell"
..controls("Copiar").enable= false 'desabilito Copia
..controls("Pegar").visible= false 'oculto Pega
end wit
end su

En este caso también pudieras no permitir que se muestre
este menú contextual haciendo Cancel=true en el evento
Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean) de la hoja que desees o del libro ?Según lo
que quieras
Al final de este mensaje te copié la respuesta del
EXCELentísimo señor HM a "Diana" el día 21/11/03,que te
puede esclarecer aún más

Otra opción que tendrías que eliminar sería Control+C,
esto con el metodo OnKey del objeto application etc etc
de todas formas opino que para deshabilitar todas las
opciones de copiar y pegar por esa vía es algo engorroso,
no estoy totalmente seguro quizás fuera más facil
deshabilitar la selección en la hoja , por las propiedades
de la hoja (en el IDE de VBA),propiedad Enableselection
escoger XlNoselection, y creo que al no poder seleccionar
nada en la hoja pues no puede copiar, ni pegar ok?

Saludos Pepito
"No solo sé bueno , sé bueno en algo" Padre Pic

Nota:Respuesta de HM a Diana 21/11/200

Hola, Diana

Como puedo deshabilitar o desaparecer las

opciones "Grabar" y "Grabar Como" del "Archivo

con las siguientes lineas de codigo en alguna macro
o 'evento' los comandos quedan 'atenuados
[si quieres que NO 'se vean', cambia la
propiedad 'Enabled' por 'Visible'] =>es solo un ejemplo
de 'como'<
[. . .
With CommandBars("File"
.Controls("Guardar").Enabled = Fals
.Controls("Guardar como...").Enabled = Fals
End Wit
[. . .

Notas
==> NO OLVIDES 'regresarlos' a 'True' ANTES de salir del
libro que los 'controla' < ==> los nombres de los comandos 'van' EN EL IDIOMA
[instalado] de la aplicacion < ==> lo anterior NO 'te asegura' que 'NO puedan' ser 're
habilitados' [por el usuario] <
saludos
Héctor

P.D. 'ma da la impresion' de que 'tu objetivo va mas alla
de la pregunta' [???

:-=0,Salu2222222;-))