Unlock a range based on cell value

[dparteka]

I could use help with this, I've gotten the CommandButton portion to work but I'm stuck on the unlocking the range part, if someone out there could enlighten me I’d really appreciate it... thank you for looking

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Unlock L5:L6 when N5 = "?" and make commandbutton11 visible when N5 = "!"

Dim KeyCells As Range
Set KeyCells = Sheet1.Range("N5")

If KeyCells.Value = "?" Then
     Range("L5:L6").Locked = False
Else
     Range("L5:L6").Locked = True
End If

If KeyCells.Value = "!" Then
     CommandButton11.Visible = True
Else
     CommandButton11.Visible = False
End If
End Sub

 

[vletm]

dparteka
Could You continue from this ?

 

[dparteka]

vletm... yes I can, very helpful, greatly appreciated and thank you.

 

[vletm]

dparteka
... if there are 'only' those rows in that Sub
then I would do it another way ... now, there are extra actions.

(I didn't want to change too much Your idea.)​