No modificar la tabla

Josema,

Si es posible q los usuarios cambien datos en mas de una celda a la vez
(p.ej. seleccionando varias celdas e introduciendo un valor con Ctrl+Enter,
copiar y pegar rangos enteros, copiar arrastrando celdas, etc.) podrias
utilizar el codigo de abajo.

Saludos,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim Pass As String
Pass = "Contrasena"

If vbYes <> MsgBox("Son los datos correctos?" & vbCr & Target.Text, _
vbYesNo, "Confirmar") Then Exit Sub
With Target
.Parent.Unprotect Pass
For Each c In .Cells
c.Locked = c.Value <> ""
Next
.Parent.Protect Pass
End With
End Sub


"Josema" wrote in message
news:OC6FHlU$

Tengo una tabla en la que trabajan distintas personas y quisiera que no
puedan modificar los datos solo meterlos. No importa si una vez metido un
dato hay algo mal y se tiene que modificar, se apunta el registro y ya se
modificará, el problema es que ahora modifican a su antojo y luego no hay
manera de corregir aquello. Os pongo un ejemplo, si queréis
Nombre Dirección Teléfono
Juann Valladoliddd 87437837484

Me pasaría la incidencia y ya modificaría yo, JUAN y Valladolid, pero que
ellos no puedan andar modificando, por qué incluso por error las lían
buenas.
Gracias y un saludo a todos
Josema

Gracias a los dos por responder. Os cuento lo que sucede. Cuando pongo el
código que me ha enviado William siempre que meto un dato en la celda me
pregunta si es ese el dato que quiero meter, si le contesto que si ya no me
deja volver a modificarlo y si le digo que no, me deja volver a modificarlo
tantas veces como le diga que no. Eso si las celdas que ya tengo rellenadas
esas las puedo modificar sin problema y me pregunta si ese es el valor, si
le respondo que si, entonces ya no me deja modificarlo de nuevo.
He probado lo que me dices KL de copiar las celdas o utilizar Ctrl+Enter
pero no consigo copiarlas si ya he contestado el SI. De todas formas si
puedes explícamelo mejor. El código ¿cómo lo pongo? Explícamelo un poco
mejor y así intento, de todas formas sigo aqui mientras llega esa respuesta
probando a ver que consigo.
Gracias a los dos y un saludo
Josema

KL he seguido los mismos pasos del caso anterior que me indico William pero
introduciendo tu código y el mensaje es el mismo, se asegura de que haya
metido lo correcto en la celda y luego ya no me deja modificarla. Esto es lo
que quería. Solo una cosa ¿qué hago cuando tenga que corregir un error?
Tendré que quitar todo el código y luego volver a ponerlo?
Un saludo

Josema,

"Josema" wrote in message...

Cuando pongo el código que me ha enviado William siempre que meto un dato
en la celda me pregunta si es ese el dato que quiero meter, si le contesto
que si ya no me deja volver a modificarlo y si le digo que no, me deja
volver a modificarlo tantas veces como le diga que no.

Me parece logico q le dejes al usuario la posibilidad de cambiar lo q acaba
de introducir (no lo q se habia introducido con anterioridad) . Lo unico q
yo anadiria seria q el contenido de la celda se borre si se contesta q NO,
asi no habra la tentacion de aprovecharse de lo q tu estas comentando.

Eso si las celdas que ya tengo rellenadas esas las puedo modificar sin
problema y me pregunta si ese es el valor, si le respondo que si, entonces
ya no me deja modificarlo de nuevo.

Creo q las dos soluciones suponian q la hoja estaba a estrenar. Antes de
usar el fichero prueba seleccionar todos los datos que ya estan en la hoja y
bloquearlos: Formato>Celda... y en la pestana Proteger activas la opcion
Bloqueada.

He probado lo que me dices KL de copiar las celdas o utilizar Ctrl+Enter
pero no consigo copiarlas si ya he contestado el SI.

Me referia a la posibilidad de q el usuario intruzca los datos en varias
celdas desprotegidas a la vez. Prueba hacer lo siguiente con cada uno de los
codigos:
1) Ve a la ultima celda protegida q tenga datos y q tenga celdas vacias por
debajo. Seleccionala, apunta con el cursor sobre su angulo inferior derecho
y cuando aparezca una pequena cruz negra haz clic sobre ella y sin soltar el
boton del raton arrastrala hacia abajo.
2) Selecciona mas de una celdas vacias, mete el cursor en la barra de
formulas, escribe 33, aprieta el boton Ctrl y sin soltarlo pulsa Enter.
3) Selecciona varias celdas con valores, pulsa Ctrl+C, selecciona un rango
de celdas vacias del mismo tamano y pega el resultado ahi.

Comentas?

El código ¿cómo lo pongo? Explícamelo un poco mejor y así intento, de todas
formas sigo aqui mientras llega esa respuesta probando a ver que consigo.

Mi codigo (q de hecho no es mio sino el de pero modificado) va al
mismo sitio q el de


Saludos,
KL

Desde luego KL una cosa esta clara ¡eres un gran maestro! jajajajajaj yo
pensaba que la tabla se encontraba súper segura y ya no se podía modificar
nada,pero veo que se pueden hacer montones de cosas, comento para los amigos
del foro:

1) Ve a la ultima celda protegida q tenga datos y q tenga celdas vacias por

debajo. Seleccionala, apunta con el cursor sobre su angulo inferior
derecho y cuando aparezca una pequena cruz negra haz clic sobre ella y sin
soltar el boton del raton arrastrala hacia abajo.

Cuando haces esto te arrastra el valor de la ultima celda sin ningún
problema y tantas celdas arrastres para abajo.

2) Selecciona mas de una celdas vacias, mete el cursor en la barra de
formulas, escribe 33, aprieta el boton Ctrl y sin soltarlo pulsa Enter.

Cuando das este paso te pone el número que has metido en la barra de
formulas en todas las celdas que has seleccionado.

3) Selecciona varias celdas con valores, pulsa Ctrl+C, selecciona un rango
de celdas vacias del mismo tamano y pega el resultado ahi.

Cuando se hace este paso nos copia todo lo que hemos seleccionado en el
lugar que le decimos

Comentas?

Sinceramente KL me encanta que me respondas por qué siempre me enseñas más
cosas de las que pregunto, eres único. Gracias también a William por ese
estupendo código, hay que reconocer que es muy, pero que muy bueno y eso de
que nos avise y de la opción de revisar el dato es estupendo.
Gracias a los dos
Josema