Lock cells with macro

[antaeusguy]

I am creating a survey form. I've inserted 2 ActiveX option buttons into the worksheet (Let's cell it OptionButton1 & OptionButton2). OptionButton1 means Yes and OptionButton2 means No.

All cells are locked with password (e.g. "ABC") and the only cell unlocked is Range("A1").

If the user click on OptionButton1 (Yes), the user needs to fill in his comments into Range("A1").

If the user click on OptionButton2 (No), the Range("A1") will be locked.

I know that I need to use the value property of the OptionButton2 (selecting it will turn to True), but I don't really know how to make the cell Range("A1") to become locked. And once OptionButton2 value turns False, it should become unlocked again.

Any help is much appreciated!

 

[Jaafar Tribak]

Maybe this :

Private Sub OptionButton1_Change()

    With OptionButton1.Parent
        .Unprotect "ABC"
        Range("a1").Locked = Not OptionButton1
        .Protect "ABC"
    End With

End Sub