How can i protect sheet then unprotect cells if a cell has data in it?

[tonywatsonhelp]

Hi Everyone,

I want a reliable way todo the following

Cells D7,D9,D11,D15,E5,E7,E11 are what i will call the "CELLS"

so I'm building a page that will receive one lot of data into cell M112 from an outside source, and want to stop this outside source from being able to add the data into any cell but M112.
I also want to stop any staff adding data into the sheet until they have imported the data.
I think this will be done with a page trigger but i'm not sure how

so when we go to the sheet all cells except M112 ill be protect (locked)

all i want to know is how can i have a macro that if data goes into cell M112 it unlockes the "CELLS", and if the data in M112 is deleted it locks them again??


anyideas i'm totally lost on this one?

Thanks

Tony

 

[onlyadrafter]

Hello,

this may work but it may depend on how the data gets into M112

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$M$112" And IsEmpty(Target.Value) Then
        ActiveSheet.Protect ("abc")
    Else
        ActiveSheet.Unprotect ("abc")
    End If
End Sub

this code will need to go into the relevant sheet code window. Change password or remove it as required. You will also need to unprotect cell M112.

Does it work?

 

[tonywatsonhelp]

Hi only a drafter, i can use this, thanks for the help