Excel bloquear celdas una vez que han sido llenadas

Jorge en este enlace encontrara un archivo con macros que quizá pueda adaptar a su archivo para bloquear y desbloquear la celda en caso de ser necesario.

Cualquier cosa me comenta y con gusto lo checo.

Saludos

Archivo: BLOUEAR_CELDA.xlsm

https://drive.google.com/drive/folders/1UB4d8a6zK1gY84lksaYKAljZAAtIchv2 

De verdad gracias por su apoyo, lo intente pero no pude hacer que cada vez que se anote algo en la celda indicada, a continuacion se bloquee.... En este mensaje le dejo el link al archivo para que lo pudiera revisar y si esta de acuerdo ayudarme con mi problema...

https://1drv.ms/x/s!Aizk3TzhdL1Vg-Qo3uPRYPuR_lU4Ig 

la ctrs para desbloquear libro y hojas es 1711

gracias

Jorge te envió el archivo para que haga la prueba si es lo que necesita para bloquear celdas y botón para desbloquear una celda en caso de error de captura. En este archivo unicamente esta programada la fila 7 (desde C7 hasta W7) habrá que programas las demás en la macro que lleva el archivo, es un poco tedioso porque hay que hacerlo celda por celda pero es la única manera que encontré de hacerlo. Acompaño con una imagen del archivo.

Saludos

Archivo: PANTALLAS BOLICHE CDP copia.xlsm

https://drive.google.com/drive/folders/1UB4d8a6zK1gY84lksaYKAljZAAtIchv2

¡Gracias! 

Es una gran ayuda.... Intentare hacerlo para todas las celdas....

En caso de que se le complique me avisa y con gusto le apoyo

Jorge encontré una forma de reducir el código para establecer varios rangos de celdas sin necesidad de programar celda por celda, espero te sirva. Saludos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       On Error Resume Next
    If Not Intersect(Target, Range("C7:W36,AB7:AV36")) <> "" Then
    Else
        If UCase(Range("C7:W36,AB7:AV36").Value) <> "" Then
            Range("B7").Select
        Else
            Range("B7").Select
        End If
    End If
End Sub

¿Entonces sustituyo el anterior verdad? ¿Pero sin eliminar el cuadro de dialogo para desbloquear la celda...?

Gracias por tu interés y apoyo...

Si nada mas, el de desbloquear celda se conserva.

Perdón por la lata... esto esta funcionando perfecto, pero no se bien de macros y vba, y no he podido hacer que aplique para las hojas 2 y 3... podrías ayudarme.

Gracias.

Puede descargar el archivo para que lo cheque ya tiene las macros en las otras 2 hojas

Cualquier cosa me comenta, saludos

https://drive.google.com/open?id=1dCOI2dVgHDKi8xCoD16iiMiw2PDXCZ32