Button to lock and unlock cell

[data808]

Trying to create some VBA code to lock and unlock cell when a button is clicked on. So far this is what I have and nothing is happening:

If Range("A1").Locked = True Then
    Selection.Locked = False
    Selection.FormulaHidden = False
End If
    
If Range("A1").Locked = False Then
    Selection.Locked = True
    Selection.FormulaHidden = False
End If

End Sub

Anyone know why? Thanks.

 

[cmowla]

You have selection (which can be Cell A1, but can be any cell that you click on . . . Selection = ActiveCell when the selection is just one cell). I assume that you will separate these two statements into two separate buttons, but this is what I believe you're trying to do. The With statement is like factoring just like how x^2+x = x(x+1).

So the following code will lock/unlock Range("A1").

With Range("A1")
    If .Locked = True Then
        .Locked = False
        .FormulaHidden = False
    End If
End With

With Range("A1")
    If .Locked = False Then
        .Locked = True
        .FormulaHidden = False
    End If
End With

End Sub

 

[data808]

You have selection (which can be Cell A1, but can be any cell that you click on . . . Selection = ActiveCell when the selection is just one cell). I assume that you will separate these two statements into two separate buttons, but this is what I believe you're trying to do. The With statement is like factoring just like how x^2+x = x(x+1).

So the following code will lock/unlock Range("A1").

With Range("A1")
    If .Locked = True Then
        .Locked = False
        .FormulaHidden = False
    End If
End With

With Range("A1")
    If .Locked = False Then
        .Locked = True
        .FormulaHidden = False
    End If
End With

End Sub

Thanks. I figured it out. You were right about the selection cell of any cell that I click on. Here is what worked for me but I'm sure yours would have worked too:

If Range("A1").Locked Then
    Range("A1").Locked = False
    Selection.FormulaHidden = False
    Exit Sub
End If
    
If Range("A1").Locked = False Then
    Range("A1").Locked = True
    Selection.FormulaHidden = False
End If

End Sub

 

[Eric W]

Or even:

    Range("A1").Locked = Not Range("A1").Locked
    Selection.FormulaHidden = False