Unlock cell based on location of active cell

[EssKayKay]

I’m not sure I want to do this but I’d like to try it. I am looking for some VBA routine that unprotects a cell based on the location of the active cell.

All cells in Column H are locked. If the active cell is in column M, I want the corresponding row/cell in Column H to become “unlocked”. If I move the active cell to some other column other than M then all cells in column H again become locked.

Example: if the active cell is M44, then I want H44 to become “unlocked”. If I cursor down to cell M45, then H44 becomes locked and H45 becomes unlocked. If the active cell is B3 then all cells in column H remain locked.

 

[kevin9999]

Here is a video showing the error.

I've no doubts that you're experiencing an error Steve - my point is that I don't experience it when I use the file. I don't thin there's much more I can do for you on this one Steve, but if I could make one recommendation to improve your existing code, then change these:

Sub UnProtect_It()
    Sheets("Amortize").Select
    ActiveSheet.Unprotect
End Sub
Sub Protect_It()
    Sheets("Amortize").Select
    ActiveSheet.Protect
End Sub

To this:

Sub UnProtect_It()
    Sheets("Amortize").Unprotect
End Sub
Sub Protect_It()
    Sheets("Amortize").Protect
End Sub

ActiveSheet is a nightmare waiting to happen...

 

[EssKayKay]

I've no doubts that you're experiencing an error Steve - my point is that I don't experience it when I use the file. I don't thin there's much more I can do for you on this one Steve, but if I could make one recommendation to improve your existing code, then change these:

Sub UnProtect_It()
    Sheets("Amortize").Select
    ActiveSheet.Unprotect
End Sub
Sub Protect_It()
    Sheets("Amortize").Select
    ActiveSheet.Protect
End Sub

To this:

Sub UnProtect_It()
    Sheets("Amortize").Unprotect
End Sub
Sub Protect_It()
    Sheets("Amortize").Protect
End Sub

ActiveSheet is a nightmare waiting to happen...

I totally understand what you are saying and I must say again that I most sincerely appreciate your time, concern, and assistance with this.

Again, my thanks,
Steve K.