Locking cells

[EDMONd]

I am trying to lock cells E10-E40 untill cell J4 has an entry greater than 3. I sure could use some help.
Thanks
EDMONd

 

[erik.van.geit]

Hello, Edmond,

WELCOME to the Board !!!

Really locking or is data validation good enough?

select your range
menu data / validation
choose custom
type in the formulabox
=$J$4>3

is this OK for you?

kind regards,
Erik

(EDIT: just saw it was you first post, so added "WELCOME to the Board !!!")

 

[Tazguy37]

If the cells are locked to start with:

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False
    If Target.Address <> "$J$4" Then GoTo exitMe
    If Target.Value > 3 Then
        ActiveSheet.Unprotect
        Range("E10:E40").Locked = False
    End If
exitMe:
    Application.EnableEvents = True

End Sub

should do it. If they aren't, you'd have to incorporate that. Post back if you need some help with that. Hope that helps!

 

[EDMONd]

I have no clue what Im doing in Excel.
EDMONd

 

[Tazguy37]

Press Alt-F11 to open the VBE.
Press Control-R to open the Project Explorer.
Click "Microsoft Excel Objects" for the file you're working on.
Double-click the sheet where you need this to work.
Open the Code pane with F7.
Paste the above code in.
Press Alt-Q to close the VBE and return to Excel.

HTH

 

[erik.van.geit]

important questions if you would use code for this
is J4 a formula ?
can the value go down again ?
YES = other code needed
(but I wouldn't use code if it can be easily done without)

kind regards,
Erik

 

[EDMONd]

J4 is a cell.

 

[erik.van.geit]

Yes J4 is a cell
Does is contain a formula ?

 

[EDMONd]

When i open VBE I can't view my sheet.
EDMONd

 

[EDMONd]

FYI I have been told many times that I shouldnt try to get tech help online. I am rather slow on the uptake.
EDMONd