Disable Cells

Re: Disable Cells

You can set the locked condition of the cell depending on the value or condition of other cells as follows ( for example )

Range("D8").Select' or whatever the range is
if Range(""E1")>0 Then' or whatever your condition needs to be
Selection.Locked = True
End If

Re: Disable Cells

If you're spreadsheet is protected then you'll need to add this to the code

ActiveSheet.Protect UserInterfaceOnly:=True

This will allow the macro to effectively ignore sheet protection.

HTH

Re: Disable Cells

You can also try this code here:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R As Range
    Set R = Application.Intersect(Target, Range("A1,A2"))
    If R Is Nothing Then Exit Sub
    ActiveSheet.Unprotect
    If Range("A1").Value > "" Then
        Range("A2").Select
        Selection.Locked = False
        Selection.FormulaHidden = False
    End If


        ActiveSheet.Protect
End Sub

This code should unlock cell A2 when you type in A1. Just remember to have cell A1 unlocked.
Alring