Try below to unlock selected cells. Please modify if you have a password..

Sub UnLockSelection()
Activesheet.UnProtect
Selection.Locked = False
Activesheet.Protect
End Sub

After data entry (based on which event) you need to again unprotect. Select
all cells..and protect back..

If this post helps click Yes
---------------
Jacob Skaria


"Nev" wrote:

Some columns in my workbook are locked and some not. I want to be able to
unlock via a macro the selected columns in the active sheet then be able to
lock them after data entry. This wil the macro in Personal.xls

I have looked at previous answers which do not seem to help.

Thanks

Nev