Progeger automaticamente rangos de celdas

Prueba con este código, que tendrás que poner en el módulo de la hoja (click derecho sobre su etiqueta->Ver código):


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells(1).Value <> "" Then
MsgBox "Esta celda no se puede modificar."
Application.EnableEvents = False
Cells(Cells(65536, Target.Column).End(xlUp).Row + 1, Target.Column).Select
Application.EnableEvents = True
End If
End Sub


Pero ten en cuenta que no podrás volver a una celda no vacía ni siquiera para borrar su contenido. Y ten en cuenta también que si la idea es evitar que otras personas puedan modificar las celdas con algún valor, se puede conseguir que no se ejecute el código con tan sólo contestar "No" al mensaje sobre si se autoriza la ejecución de código...

Al intentar seleccionar una celda no vacía, aparece un mensaje de error y la selección se desplaza a la celda siguiente a la última no vacía de la misma columna.

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Ricardo Vinella" escribió en el mensaje news:

Amigos: Tengo el siguiente problema. Necesito encontrar alguna forma automática que me permita que, una vez que escribí algo en una celda y me mueva a otra, ya no pueda volver a la anterior ni corregir su contenido. Esto lo tengo que hacer sin colocar contraseña, sin haber grabado el libro posteriormente.
Es decir, escribo algo, cambio de celda y ya no puedo volver a la anterior. Sólo verla, pero no corregirla.
¿Alguien sabe cómo?
Gracias desde ya.

Ricardo.