locking columns

[arnoldmiranda]

Hi,
I need help with an excel file, the file contains certain parameters from A5 to A15 in B6 we type the agent name and below that if he/she passed or failed in the parameters listed in column A2 to A15 subsequently for every other agent we will capture similar data in column C,D etc
While updating an agents entry in column C it's imperative that no changes are made in column B etc once the data has been entered
Can a macro be written which will lock the entire columnB when an entry is made in cell B15, etc etc

thanks

 

[FryerTuck]

Put the following in theVBA Objects Sheet that you want to protect. when something is put into row 15, it will unprotect the sheet, change the locked indicator for that column to TRUE; then re-protect the sheet. The column will now be locked. I used "asdf" as the password, change it to whatever you want.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 15 Then
ActiveSheet.Unprotect "asdf"
Columns(Target.Column).Locked = True
ActiveSheet.Protect "asdf", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub