vba to automatically switch on cell protection in unprotected cells

[CRL_IM1]

Hi I have a locked table in which some columns contain protected cells which always remain locked by the macro. Other columns are not protected to enable users to input data or select drop down menus. I need to change the unprotected cells in a row into protected cells so the macro will then protect an entire row once an x is input to the cell in column AG.

The idea being a reviewer can verify the data in the row and then lock it down by inputting a value x into the cell in column AG - locking it against any further change without a password.

Thanks in advance

I

 

[CRL_IM1]

Should have mentioned I have tried the macro recorder version of the cell protection and tried to mix with a piece of code from something similar.


For Each cell In Range("AG3:AG500")

ActiveSheet.Unprotect "Password"

If cell.Value = "X" Then .Select

ActiveCell(1, -3).Select
Selection.Locked = True
Selection.FormulaHidden = False

ActiveSheet.Protect "Password"

End If

Next cell

End Sub