Solo consultar tabla

Hola Juani:
A continuacion te pongo el codigo de VBA necesario(no se puede hacer de otra
forma) para hacer lo que quieres. Estos son los pasos:
1-Todas las celdas de las columnas A y B deben estar desbloqueadas,
exceptuando los titulos de las columnas.
2-Protege la hoja con un Password.
3-Haces click sobre la etiketa de la hoja afectada y seleccionas "Ver
codigo", pegas el texto de abajo.
4-Sustituye dentro de este texto "TuPassword" por tu verdadero password(has
de dejar las comillas) !Esta repetido 3 veces¡.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="TuPassword"
If Not Intersect(Range("A:B"), Target) Is Nothing Then
'Las dos proximas lineas son opcionales a efectos de corregir si hay algun
error
Respuesta = MsgBox("¿Estas seguro?", vbYesNo, "Verificar")
If Respuesta = vbNo Then
Target.Select
ActiveSheet.Protect Password:="TuPassword"
Exit Sub
End If
Target.Locked = True
End If
ActiveSheet.Protect Password:="TuPassword"
End Sub

Ante cualquier duda pregunta
Un saludo.

"Juani" escribió en el mensaje
news:1b0c01c4fb24$44218b60$
He terminado una tabla, algo muy sencillo, con una serie
de datos que interesa que puedan verlo los trabajadores
de la empresa pero no modificar ninguno de sus campos,
sin embargo si quieren añadir alguno nuevo, no habría
problema ¿Es posible esto? Supongamos que las celdas A1
hasta A20 y b1 hasta B20 no se pueden utilizar pero si
podían seguir escribendo en la A21 y B21.
Gracias
Juani

Gracias por tu respuesta. En un pincipio parece que todo
va bien, y creo que doy los paso bien, pero al final me
deja modificar lo que tengo escrito y puedo escribir en
las de fuera. No se muy bien que es lo que pasa el código
lo he copiado y luego le pongo el password que he
definido antes.
mo entieno que puede pasar
un saludo
Juani

Perdona, pero los datos que ya tuvieras tienes que bloquear las celdas, no
cai en la cuenta de que ya tuvieras datos almacenados...
creo que sea por eso o ¿no?
Un saludo

escribió en el mensaje
news:1de001c4fc28$9de8af20$
Gracias por tu respuesta. En un pincipio parece que todo
va bien, y creo que doy los paso bien, pero al final me
deja modificar lo que tengo escrito y puedo escribir en
las de fuera. No se muy bien que es lo que pasa el código
lo he copiado y luego le pongo el password que he
definido antes.
mo entieno que puede pasar
un saludo
Juani

Ahora si, ya esta solucionado. En realidad debería haber
caido yo en ello.
Gracias
Juani

Vaya pues no se si llego a tiempo pero en todo caso yo te lo dejo dicho
Se me ha ocurrido que si ante la pregunta que te hace la macro y despues de
escribir el contenido en la celda, seleccionas "No" el texto queda escrito y
la celda desprotegida, para evitar esto he modificado ligeramente la parte
de la validacion.
Si despues de escribir en la celda escoges "No" entras en la celda en modo
edicion y puedes modificar el contenido, si el contenido no es ninguno la
celda no se protege...
Esto del VBA es asi de complicado.
Un saludo.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="TuPassword"
If Not Intersect(Range("A:B"), Target) Is Nothing Then
'Las 7 proximas lineas son opcionales a efectos de corregir si hay algun
error
Respuesta = MsgBox("¿Estas seguro?", vbYesNo, "Verificar")
If Respuesta = vbNo Then
Target.Select
ActiveSheet.Protect Password:="TuPassword"
SendKeys "{F2}", True
Exit Sub
End If
If Target = "" Then GoTo Salir
Target.Locked = True
End If
Salir:
ActiveSheet.Protect Password:="TuPassword"
End Sub

"Juani" escribió en el mensaje
news:1d6801c4fce2$649dfb20$
Ahora si, ya esta solucionado. En realidad debería haber
caido yo en ello.
Gracias
Juani