Macro para proteger hoja dependiendo de una celda

[anibal3]

Saludos Maestros. Quiero proteger un rango de datos si se cumple el valor de una Celda. Por ejemplo, si en la celda A1 esta "X" que proteja el rango desde la A5 hasta la A10; de igual manera si esta en la celda b1 "X" que proteja B5 hasta la B10 y asi en la columna C y D.
O el otro pedido que sería el que mejor quedaría que proteja las celdas que tengan el color rojo (puesto con formato condicional). Si se puede de esta forma sería excelente o el de mi primer planteamiento. Gracias.

 

[mrshl9898]

Saludos

Sub Protect()

Dim colnum As Long

ActiveSheet.Unprotect Password:="myPassword"

Cells.Locked = False

colnum = 1

Do Until colnum = 5
    If Cells(1, colnum) = "X" Then
    Range(Cells(5, colnum), Cells(10, colnum)).Locked = True
    End If
colnum = colnum + 1
Loop

ActiveSheet.Protect Password:="myPassword"

End Sub

 

[anibal3]

Saludos

Sub Protect()

Dim colnum As Long

ActiveSheet.Unprotect Password:="myPassword"

Cells.Locked = False

colnum = 1

Do Until colnum = 5
    If Cells(1, colnum) = "X" Then
    Range(Cells(5, colnum), Cells(10, colnum)).Locked = True
    End If
colnum = colnum + 1
Loop

ActiveSheet.Protect Password:="myPassword"
Gracias por la ayuda pero quisiera que esta macro este permanentemente funcionando en la hoja 1
[/QUOTE]

 

[anibal3]

Gracias por la ayuda pero quisiera que esta macro este permanentemente activa en la Hoja 1

 

[mrshl9898]

Try using the below.

Sub Protect()

Dim colnum As Long
Dim ws as Worksheet

Set ws = Sheets("Sheet1")

ws .Unprotect Password:="myPassword"

ws. Cells.Locked = False

colnum = 1

Do Until colnum = 5
    If ws. Cells(1, colnum) = "X" Then
    ws. Range(ws. Cells(5, colnum), ws. Cells(10, colnum)).Locked = True
    End If
colnum = colnum + 1
Loop

ws.Protect Password:="myPassword"

End Sub

And call it from a sheet level macro.

If Not Intersect(Target, Range("A1:A5")) Is Nothing Then

Call Protect

End If

 

[anibal3]

Gracias por la respuesta pero no funciona al proteger protege toda la hoja y no solo la columna que tiene X. La idea es que solo las columnas que tienen marcada la X se protejan las demas queden desprotegidas.

 

[anibal3]

Y cuando quito la X no se desprotege la columna

 

[mrshl9898]

Sorry, bad copy paste.

Sheet level macro is:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A5")) Is Nothing Then

Call Protect

End If
End Sub

You must protect the whole sheet, but those cells should be the only ones locked. Perhaps we have a misunderstanding

 

[mrshl9898]

What exactly do you mean by protected? What do you want to be able to do in the locked and unlocked cells?