Excel - Proteger rango mediante condición

 
Vista:

Proteger rango mediante condición

Publicado por carlos (2 intervenciones) el 02/03/2008 20:14:15
Tengo un pequeño problema.
Necesito proteger un rango de celdas, por ejemplo de A5 a AA5 solo en el caso de que AB5 tenga un valor determinado, como por ejemplo Sí. Y esto extenderlo a lo largo de la hoja.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Proteger rango mediante condición

Publicado por Mike (17 intervenciones) el 03/03/2008 21:19:21
Intenta con una macro, lo que hace esto es que te blockea solo las filas que en tengan la palabra "SI" en la columna de AB y el resto lo deja sin blockear

Para poder modificaciones a las celdas blockeadas tienes que ingresa el passwor Test

Sub Locked()
Dim Row As Variant

ActiveSheet.Unprotect Password:="test"
Cells.Locked = False
Row = 5
For n = 1 To WorksheetFunction.CountA([A:A])
MsgBox Row
If Range("AB" & Row).Value = "SI" Then
Range("A" & Row & ":" & "AA" & Row).Locked = True
End If
Row = Row + 1
Next
ActiveSheet.Protect Password:="test"
End Sub

Estoy considerando que la informacion la tienes a partir de la la fila 5 y que en
la columna A todas las celdas tienen datos

Espero te sirva!!!

Slds

Mike
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Muchisimas gracias.

Publicado por Carlos (2 intervenciones) el 08/03/2008 14:35:06
Muchisimas gracias Mike, voy a probar a adaptalo a lo que tengo y te cuento si funciona realmente como me interesa.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar