Enable/Disable Cell if another cell has an especific text

[mariopaz18]

Hello All,

I am trying to have lets say: if the cell A1 has "Solicitud" in it then the cel B1 should be enable for imput (I actually have the cel B1 validated with a Yes/No list) but if the cel A1 is blank or it does not have "Solicitud" then B1 cel should be disabled for editing.

VBA code or formulas accepted.

Thank you very much for your prompt help.

 

[mumps]

Hi mariopaz. Start by formatting the protection for A1 and B1 as 'unlocked'. Next protect the worksheet. Try this macro:

Sub Test()
    ActiveSheet.Unprotect
    If Range("A1") = "Solicitud" Then
        Range("B1").Locked = False
    Else
        Range("B1").Locked = True
    End If
    ActiveSheet.Protect
End Sub

 

[mariopaz18]

Hi mariopaz. Start by formatting the protection for A1 and B1 as 'unlocked'. Next protect the worksheet. Try this macro:

Sub Test()
    ActiveSheet.Unprotect
    If Range("A1") = "Solicitud" Then
        Range("B1").Locked = False
    Else
        Range("B1").Locked = True
    End If
    ActiveSheet.Protect
End Sub

--------------
Thank you, one more question, I want this for an especific range of cels in the A column and the locked function in the same range of cels in the B column....

 

[mumps]

Try:

Sub Test()
    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim rng As Range
    For Each rng In Range("A2:A" & LastRow)
    If rng = "Solicitud" Then
        Range("B" & rng.Row).Locked = False
    Else
        Range("B" & rng.Row).Locked = True
    End If
    ActiveSheet.Protect
    Application.ScreenUpdating = True
End Sub