Cell Lock/Unlock based on other cell's value

[afenrick86]

I am trying to figure something out and I realized that it will take a little VBA to complete my request. I have a cell that is unlocked, Sheet2:A1, by default because the cell in Sheet1:A1 is blank. If someone puts text in Sheet1:A1 then I want Sheet2:A1 to lock where it can't be changed. Any help or suggestions? Any way around VBA? If not, that is fine, just trying not to complicate things too much.

 

[Lee.]

In sheet 1 would this work?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target = Range("A1") Then Call lockingsheet
End Sub

Sub lockingsheet
if sheets("Sheet1").range("A1").value <> 0 then
Sheets("Sheet2").protect password:="ABC123")
else 
Sheets("Sheet2").unprotect password:="ABC123")
End if
end sub

 

[afenrick86]

Lee,

Thanks for the quick reply. I think the top half of that will work, but I will already have Sheet 2 locked because I have other cells that I don't want modified. I am just needing the single cell to lock and unlock instead of the whole sheet. Does that make sense?