Foro Excel

Hola a tod@as,

es mi primera consulta en el foro y mis compañeros de trabajo me lo han aconsejado por ser muy bueno.
Necesito saber como poder proteger del todo unas celdas para que nadie puedan introducir datos con la funcion copiar y pegar: busco una limitación añadida para que los usuarios solo pueden introducir datos digitandolos, no copiandolos.
Mas en concreto, en la función de "Proteger Hoja" (después de haber quitado el bloqueo de la celda en "Formato de Celdas-->Proteger-->Bloqueada) cuando voy a introducir la contraseña, abilito solo el tick de permitir a los usuarios de "Seleccionar celdas desbloqueadas".
...aún así, después de proteger la hoja con contraseña, excel me permite a todos pegar datos copiados de otra hoja en las celdas desbloqueadas.
¿Como puedo evitarlo?

Os adjunto un archivo que he creado como ejemplo: la 1ª pestaña es la hoja terminada y protegida, la 2ª pestaña son los datos que voy a copiar y pegar, la 3ª pestaña es copia exacta de la primera hoja protegida con los datos copiados. Se nota como haciendo esto de copiar y pegar se saltan las protecciones de la hoja, tanto en formato como en la validación (en este caso númerica) de los datos.

Muchas gracias con antelación por la ayuda.

Hola,

mira, con este script puedes deshabilitar todas las conbinaciones del teclado.

Código: Seleccionar todo

Private Sub Worksheet_Activate()
Application.OnKey "^a", ""
Application.OnKey "^b", ""
Application.OnKey "^c", ""
Application.OnKey "^d", ""
Application.OnKey "^e", ""
Application.OnKey "^f", ""
'Application.OnKey "^g", ""
Application.OnKey "^h", ""
Application.OnKey "^i", ""
Application.OnKey "^j", ""
Application.OnKey "^k", ""
Application.OnKey "^l", ""
Application.OnKey "^m", ""
Application.OnKey "^n", ""
Application.OnKey "^o", ""
Application.OnKey "^p", ""
Application.OnKey "^q", ""
Application.OnKey "^r", ""
Application.OnKey "^s", ""
Application.OnKey "^t", ""
Application.OnKey "^u", ""
Application.OnKey "^v", ""
Application.OnKey "^w", ""
Application.OnKey "^x", ""
Application.OnKey "^y", ""
Application.OnKey "^z", ""

End Sub
 

por el contrario, si quieres habilitar de nuevo el teclado, puedes utilizar este script:

Código: Seleccionar todo


Sub RehabilitarTeclado()

Application.OnKey "^a"
Application.OnKey "^b"
Application.OnKey "^c"
Application.OnKey "^d"
Application.OnKey "^e"
Application.OnKey "^f"
Application.OnKey "^g"
Application.OnKey "^h"
Application.OnKey "^i"
Application.OnKey "^j"
Application.OnKey "^k"
Application.OnKey "^l"
Application.OnKey "^m"
Application.OnKey "^n"
Application.OnKey "^o"
Application.OnKey "^p"
Application.OnKey "^q"
Application.OnKey "^r"
Application.OnKey "^s"
Application.OnKey "^t"
Application.OnKey "^u"
Application.OnKey "^v"
Application.OnKey "^w"
Application.OnKey "^x"
Application.OnKey "^y"
Application.OnKey "^z"


End Sub

Espero te sirva.

Saludos,

Alberto Leuro