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