VBA : Lock column after data entry

First of all you have to make sure that all the cells in which you will be entering data are unlocked. Then you have to protect the worksheet, with or without a password. If you want to use a password, change

ActiveSheet.Unprotect

to

ActiveSheet.Unprotect Password:="password"

Do the same with

ActiveSheet.Protect

Change "password" to whatever password you want to use. Enter the data in each column making sure that you enter the data in column D last because entry in column D is what triggers the macro. Place this macro in the worksheet code module:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    ActiveSheet.Unprotect
    Target.EntireRow.Locked = True
    ActiveSheet.Protect
End Sub

Thanks Mumps1! I tried to run that macro, it locking the column after the data has been inputed but its also locking the entire sheet as well rather than given column

I tried to play around it with again, the moment you type in anything in the D column the sheet becomes locked.

You have to make sure that all the cells in the range where you will be entering data (Range("A3:D23") in your sample file) are unlocked before you run the macro. If you are still having problems, please post a copy of your actual file. It is always easier to help if we can work with the actual file. If the file contains confidential information, replace it with generic data.

The file was attached to the original post. I just tried it again, used the one attached to the first post, unlocked all the cells and still as long as i type anything in column D the entire sheet is protected.

So I looked around. I've come upon this topic http://www.excelforum.com/excel-prog...a-entered.html

Had a go at it, it worked out just fine - once the cell got populated its getting locked.
Another problem I have with it is that I doesn't ask for a password when click Unprotect sheet even thou the password is set in macro

Option Explicit

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A18:B18").Locked = False
    Selection.FormulaHidden = False
End Sub
Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="passme"
    Range("E7").Select
    ActiveSheet.Unprotect
End Sub

Try the attached file. I'm using the file in your original post. Enter the data, colum D last and exit the cell. If you click 'Unprotect Sheet" you will be asked for a password (passme).

Thank you Mumps!

My pleasure.