Como impedir copia de Hoja en Excel ?

Hola Guillermo,

Tanto como impedir impedir no creo que sea posible, pero la forma mas logica es proteger la estructura del libro atraves del menu
Herramientas>Proteccion>Proteger Libro... Ahora,si alguien realmente quiere copiar tu hoja como sea - romper la proteccion es una
tarea bastante asequible (bastaria con lanzar una busqueda en la web)

Tambien podrias inhabilitar el submenu 'Mover o copiar' del menu contextual de la hoja, pero esto no evitara que alguien la copie
arrastrando con el cursor.

Saludos,
KL




"Guillermo" wrote in message news:%23Lqpgty$

Hola:

Los molesto para ver si alguien puede indicarme una sentencia en una macro para impedir que se copie una hoja a otro libro.

Es decir impedir:

Sobre la etiqueta (hoja), boton secundario, "Mover o copiar ..."

Desde ya, muchas gracias

Guillermo

Gracias Kl por tu respuesta.
Entiendo lo que me comentas en cuanto a la poca seguridad que dispone Excel
al proteger las macros, pero, no obstante considero interesante al menos,
hacerlo algo mas complicado y, por lo tanto, tendran que disponer de tiempo
para la obtencion de las contrasenas.

Me interesa lo que comentas a "inhabilitar" el menu "Mover o copiar ...",
sabes como podria hacerlo?

Muchas gracias

Guillermo

"KL" escribio en el mensaje
news:e015okz$

Hola Guillermo,

Tanto como impedir impedir no creo que sea posible, pero la forma mas
logica es proteger la estructura del libro atraves del menu
Herramientas>Proteccion>Proteger Libro... Ahora,si alguien realmente
quiere copiar tu hoja como sea - romper la proteccion es una tarea
bastante asequible (bastaria con lanzar una busqueda en la web)

Tambien podrias inhabilitar el submenu 'Mover o copiar' del menu
contextual de la hoja, pero esto no evitara que alguien la copie
arrastrando con el cursor.

Saludos,
KL




"Guillermo" wrote in message
news:%23Lqpgty$

Hola:

Los molesto para ver si alguien puede indicarme una sentencia en una
macro para impedir que se copie una hoja a otro libro.

Es decir impedir:

Sobre la etiqueta (hoja), boton secundario, "Mover o copiar ..."

Desde ya, muchas gracias

Guillermo

Hola Guillermo,

Me interesa lo que comentas a "inhabilitar" el menu "Mover o copiar ...",
sabes como podria hacerlo?

Prueba esto:

Sub test()
On Error Resume Next
Application.CommandBars("Ply") _
.FindControl(ID:„8, Recursive:=True) _
.Enabled = False
End Sub

Saludos,
KL

GRACIAS LO PROBARE, LUEGO TE CUENTO

GUILLERMO

"KL" escribio en el mensaje
news:uLqFgZ3$

Hola Guillermo,

Me interesa lo que comentas a "inhabilitar" el menu "Mover o copiar ...",
sabes como podria hacerlo?

Prueba esto:

Sub test()
On Error Resume Next
Application.CommandBars("Ply") _
.FindControl(ID:„8, Recursive:=True) _
.Enabled = False
End Sub

Saludos,
KL