Bloquear celdas revisadas por mi

Para evitar selecciones múltiples (en que la celda activa puede ser
modificada):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then ActiveCell.Select
If Target.Column < 14 Then
If Cells(Target.Row, 14) = "si" Then ActiveCell.Offset(1, 0).Select
End If
End Sub


Saludos desde Tenerife (Islas Canarias).
************************************************
"AnSanVal" escribió en el mensaje
news:

Una solución diferente medianteVBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 14 Then
If Cells(Target.Row, 14) = "si" Then ActiveCell.Offset(1, 0).Select
End If
End Sub


Saludos desde Tenerife (Islas Canarias).
************************************************
"GRIEGO59" escribió en el mensaje
news:

Hola,
Tengo una hoja de Excel: PRÉSTAMOS con 14 columanas, desde A1 hasta N1
son
los títulos de las columnas. El título de N1 es REVISADO.
A medida que voy revisando las filas, voy escribiendo "SI" la columna
REVISADO.
Pero a veces pasa que por error, modifico información ya revisada.

Sería genial que solamente puedan modificarse las filas no revisadas y
puedan modificarse las filas revisadas, si se cambia el estatus "SI".

Las filas no revisadas tendrían cualquier contenido distinto a "SI".

Mi hoja tiene bloqueadas las columnas C, E, G, I, L, M porque alli hay
fórmulas.

Gracias de antemano

Griego59

hola, AnSanVal !

[creo que] resultaria un una *perdida de funcionalidad*, si cada celda previa a la columna 14 que vas seleccionando:
-> ademas de no poderla modificar [ya que estarias *forzando* a seleccionar la siguiente fila *seleccionable*]
-> tampoco pudieras *verla* [para consultar ?] si la columna 14 [N] contiene la palabra "si" [en minusculas] :-((

si OP menciona que tiene ya algunos rangos bloqueados [significa que existen otros desbloqueados/modificables]...
otra -posible- alternativa es [cuidando si no se interfieren otros codigos en los eventos]...

1) proteger la hoja por codigo en el evento '_open' del libro con la opcion de *solo la interfase con el usuario* y
2) en el evento '_selectionchange' de *esa* hoja haces un des/re/bloqueo de las celdas modificables si la columna N = "si"

saludos,
hector.

Para evitar selecciones multiples (en que la celda activa puede ser modificada):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then ActiveCell.Select
If Target.Column < 14 Then
If Cells(Target.Row, 14) = "si" Then ActiveCell.Offset(1, 0).Select
End If
End Sub

Una solucion diferente medianteVBA:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 14 Then
If Cells(Target.Row, 14) = "si" Then ActiveCell.Offset(1, 0).Select
End If
End Sub

__ la consulta original __

Tengo una hoja de Excel: PRESTAMOS con 14 columanas, desde A1 hasta N1 son los titulos de las columnas.
El titulo de N1 es REVISADO. A medida que voy revisando las filas, voy escribiendo "SI" la columna REVISADO.
Pero a veces pasa que por error, modifico informacion ya revisada.
Seria genial que solamente puedan modificarse las filas no revisadas
y puedan modificarse las filas revisadas, si se cambia el estatus "SI".
Las filas no revisadas tendrian cualquier contenido distinto a "SI".
Mi hoja tiene bloqueadas las columnas C, E, G, I, L, M porque alli hay formulas...

Hola Hector!
Ya tengo conexión a internet.
Probé la fórmula =y($n2="si";esblanco(a2)) en formato condicional, pero no
funciona al hacer cambios en las filas ni con N2=si, ni con N2=no.

Saludos,
Darío.


"Héctor Miguel" escribió:

hola, Darío !

> No me gusto mucho eso de los colores de advertencia
> pero me diste una idea... con los formatos condicionales que yo no sabia como usarlos ...
> En cuanto a lo de suprimir una o varias celdas, pues tu sabes como son los *errores*;
> No quisiera suprimir o *borrar* una celda por errror y;
> No quisiera suprimir o borrar varias celdas por error.
> En ninguno de los dos casos deberia borrarse una celda.
> Hay algo, que no te aclare: A1,B1,C1,D1,E1,F1,G1,H1,I1,J1,K1,L1,M1,N1,O1, son titulos de columnas.
> Agregue la columna O1. La celda que contiene el titulo REVISADO sigue siendo N1 Los datos comienzan en la fila 2.

1) el termino [alegorico] de *alertas visuales*, lo use para referirme -precisamente- a los formatos condicionales
ya que [visualmente] podrias notar una *alerta* [color de relleno] en las celdas donde se hubiera eliminado por error

2) si prefieres [al menos *intentar*] EVITAR que se borren celdas cuyos datos no debieran ser *eliminables*...
habria que recurrir a los codigos, conociendo algunos detalles adicionales [como usos y costumbres del usuario]
considerando [como he dicho alguna vez] que una de las tareas mas *quema-neuronas* [en cuestiones de programacion] ES:
-> *anticipar* [en la medida de lo posible] las acciones del usuario para...
-> *evaluar* las consecuencias en la ejecucion de los codigos y...
-> *prevenir/corregir/evitar/...* [segun corresponda] las acciones del usuario y/o la acciones en la ejecucion de los codigos :))

-> [por otro lado] si la columna 'N' sigue siendo la que condiciona el permiso de [no] modificar/borrar/... las celdas *revisadas*...
la propuesta anterior con los formatos condicionales sigue siendo *aplicable* [me queda la duda de si ya lo probaste] -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Héctor.

[creo que] resultaria un una *perdida de funcionalidad*, si cada celda
previa a la columna 14 que vas seleccionando

Tienes razón. Pero sólo en el caso de que seleccione una celda de una fila
"no modificable" (en mi caso sólo lo haría por error, que es de lo que se
trata).

respecto a...

-> tampoco pudieras *verla* [para consultar ?] si la columna 14 [N]
contiene la palabra "si" [en minusculas] :-((

... con la barra de desplazamiento se puede consultar prefectamente la
información de todas las filas.

La interferencia con otros código... deberá evaluarlo el preguntante ya que
yo descozco si existe tal posibilidad. :-(

De cualquier modo sólo se trata de una posibilidad más ;-)

Saludos desde Tenerife (Islas Canarias).
************************************************
"Héctor Miguel" escribió en el mensaje
news:

hola, AnSanVal !

[creo que] resultaria un una *perdida de funcionalidad*, si cada celda
previa a la columna 14 que vas seleccionando:
-> ademas de no poderla modificar [ya que estarias *forzando* a
seleccionar la siguiente fila *seleccionable*]
-> tampoco pudieras *verla* [para consultar ?] si la columna 14 [N]
contiene la palabra "si" [en minusculas] :-((

si OP menciona que tiene ya algunos rangos bloqueados [significa que
existen otros desbloqueados/modificables]...
otra -posible- alternativa es [cuidando si no se interfieren otros codigos
en los eventos]...

1) proteger la hoja por codigo en el evento '_open' del libro con la
opcion de *solo la interfase con el usuario* y
2) en el evento '_selectionchange' de *esa* hoja haces un des/re/bloqueo
de las celdas modificables si la columna N = "si"

saludos,
hector.