............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

No permitir pegar en cierta rango de una hoja

Ver el tema anterior Ver el tema siguiente Ir abajo

No permitir pegar en cierta rango de una hoja

Mensaje por dmarvel el Mar Feb 26, 2008 7:04 pm

Buenas tardes

mi consulta es esta
tengo cierta informacion que trae de una base la cual se encuentra en el servidor para que unicamente utilizen la informacion de ese lugar
tengo la hoja protegida pero ese rango no porque si no la lista de la validacion no se puede seleccionar
ellos copian de otra hoja y pegan en ese rango, poniendo datos que no deben

como podria impedir que peguen en ese rango

Espero haber sido claro

Gracias

dmarvel

Masculino Cantidad de envíos : 6
Edad : 51
Fecha de inscripción : 21/02/2008

Volver arriba Ir abajo

Re: No permitir pegar en cierta rango de una hoja

Mensaje por GalileoGali el Mar Feb 26, 2008 9:20 pm

En principio bienvenido a este foro:
para lo que preguntas, vamos a optar por una version que mediante macro inhabilite todos los comandos de pegar disponibles desde la apertura del libro y que los devuelva al cerrarlo:
Para eso pega en el Modulo Thisworkbook, esto:
para que empiece a funcionar hay que cerrar el libro y volverlo a abrir, para provocar el evento, o bien simplemente correr InhabilitarPegar
Código:
Sub InhabilitarPegar()
Dim pegar1 As CommandBarPopup
Dim pegar2 As CommandBar
Set pegar1 = Application.CommandBars(1).Controls(2)
pegar1.Controls(6).Enabled = False
pegar1.Controls(7).Enabled = False

Set pegar2 = Application.CommandBars(63)
pegar2.Enabled = False

End Sub
Sub habilitarPegar()
Dim pegar1 As CommandBarPopup
Dim pegar2 As CommandBar
Set pegar1 = Application.CommandBars(1).Controls(2)
pegar1.Controls(6).Enabled = True
pegar1.Controls(7).Enabled = True

Set pegar2 = Application.CommandBars(63)
pegar2.Enabled = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
habilitarPegar
End Sub

Private Sub Workbook_Open()
InhabilitarPegar
End Sub

[Tienes que estar registrado y conectado para ver este vínculo]


Última edición por GalileoGali el Mar Abr 15, 2008 7:22 pm, editado 2 veces

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

No permitir pegar en cierta rango de una hoja

Mensaje por dmarvel el Miér Feb 27, 2008 2:02 pm

Gracias Galileo
funciona perfectamente
solo un detalle al darle copiar aparecen pegar y pegado especial activados
se podria inhabilitar tambien copiar

desde ya muchas gracias

y felicitaciones por este nuevo foro

dmarvel

Masculino Cantidad de envíos : 6
Edad : 51
Fecha de inscripción : 21/02/2008

Volver arriba Ir abajo

Re: No permitir pegar en cierta rango de una hoja

Mensaje por GalileoGali el Miér Feb 27, 2008 2:25 pm

Si, es cierto no se inhibe Pegar en el menu contextual:

a ver esto:

Código:
Sub InhabilitarPegar()
Dim pegar1 As CommandBarPopup
Dim pegar2 As CommandBar
Set pegar1 = Application.CommandBars(1).Controls(2)
pegar1.Controls(6).Enabled = False
pegar1.Controls(7).Enabled = False

Set pegar2 = Application.CommandBars(63)
pegar2.Enabled = False
Application.CommandBars("Cell").Enabled = False

End Sub
Sub habilitarPegar()
Dim pegar1 As CommandBarPopup
Dim pegar2 As CommandBar
Set pegar1 = Application.CommandBars(1).Controls(2)
pegar1.Controls(6).Enabled = True
pegar1.Controls(7).Enabled = True

Set pegar2 = Application.CommandBars(63)
pegar2.Enabled = True

Application.CommandBars("Cell").Enabled = True
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: No permitir pegar en cierta rango de una hoja

Mensaje por dmarvel el Jue Feb 28, 2008 3:31 pm

Asi con estos cambios obtengo lo que necesito
Te Agradezco
Gracias galileoGali

dmarvel

Masculino Cantidad de envíos : 6
Edad : 51
Fecha de inscripción : 21/02/2008

Volver arriba Ir abajo

Re: No permitir pegar en cierta rango de una hoja

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.