Unlock a range of cells in a column ONLY when the first cell of that column has data.

Hi Excel Gurus,

I'm a humble basic user of Excel and I have zero knowledge of VBA. I have to bravely venture into it now... hopefully with your guidance.

My challenge.

1. The worksheet is protected and cells are locked, with the exception of certain cells which I need users to enter data.
2. Only when users enter data (which is in the form of a date) in cell F3, cells F10:F54 are unlocked. Else the cells are locked.
3. Cells F10:F54 are also bound be Data Validation; users can only enter "1", "0" or "L".
4. This is repeated for column F to O.

How do I do this?

I'm a total noob at VBA.

Thanks.

PS. I've attempted to use some codes I found in this forum but nothing seems to happen... so I decided to just ask this...

try this:

Please Login or Register  to view this content.

Hi stnkynts,

Its works to a degree. After I enter data in cell F3, the cells F10:F54 is unlocked and data can be entered.
However, when I delete or clear the data in cel F3, the cells F10:F54 remains unlocked...
Anyway to relock F10:F54? Better yet, anyway to clear and lock F10:F54 AFTER I clear/delete data in F3?

Damien.

I did some investigation and realised that when the sheet is unprotect and cells unlocked, the macros changed the cells to be permanently unlocked. So I have to reset it again in order for the macros to work... how do I address this?

Anyway to relock F10:F54? Better yet, anyway to clear and lock F10:F54 AFTER I clear/delete data in F3?

Please Login or Register  to view this content.

I did some investigation and realised that when the sheet is unprotect and cells unlocked, the macros changed the cells to be permanently unlocked.

It works just fine for me

stnkynts,

Thanks! It works!


Much much thanks.

Damien.

stnkynts,

I've marked this thread as solved... much thanks to you.

There is a slight glitch that I can live with, but if it could be addressed it would be great.

When the data in F3 is in the date format, I get a runtime error at the line [ If Target.Value = "" Then ].
Any solution?

Thanks.
Damien.