Macro to unlock cells in particular columns based on header value

Hello

My knowledge of macros is almost zero.

I need a very simple macro that will perform the following:
column range ( I6:AM326 ) where the row 5 is the header. I need to open cells in rows 7 to 326 of columns with header values (-1 ) and /or ( 0) unlocked
for data entry.
**These header values change daily on the basis of Today ( ) function in some other cell*

However I don' t want this macro to alter or affect any other cells in the whole worksheet.
Also I should be able to copy the work sheet and the VBA code also moves with the copy. I dont want the VBA code to be in a seperate module

This macro should do what you want. I don't know of any way to copy and move the worksheet along with the macro. You may have to copy macro separately.

Please Login or Register  to view this content.

hi Mumps
Thanks for the help.
But the code doesnt seem to work.
Please have a look at the attached example

You had placed the macro in the worksheet code module and in the ThisWorkbook code module. It should have gone in a regular module. Secondly, you had used several merged cells. Merged cells most often confuse Excel so you should avoid them if at all possible. I have unmerged the cells and place the macro in a regular module. Just click the "Update" button to unlock the appropriate columns. See the attached file.

OK Mumps , it works. But not password protected. Can we re-write the code with password protection ? pwd " " ?
Thanks in advance
Napa

Hi Napa. Here is the revised code. Just replace "password" with the password you used to protect the worksheet (two occurrences).

Please Login or Register  to view this content.