Option Button
 

I have little knowledge of how to write VB code.
I have a form with 3 option buttons alongside 3 cells for data entry. When
a button is selected I want the corresponding cell to allow data entry and
the other 2 to be locked. Why does this code not work:

Private Sub OptionButton1_Click()
Worksheets("PART A").Unprotect
Worksheets("PART A").Range(i11).Locked = False
Worksheets("PART A").Range("i13:i15,d23:d24").Locked = True
Worksheets("PART A").Protect
End Sub

Option Button
 

This works for me. You were close

Private Sub OptionButton1_Click()
Worksheets("PART A").Unprotect
Worksheets("PART A").Range("I11").Locked = False
Worksheets("PART A").Range("I13:I15,D23:D24").Locked = True
Worksheets("PART A").Protect
End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"smcs" wrote in message
...
I have little knowledge of how to write VB code.
I have a form with 3 option buttons alongside 3 cells for data entry.
When
a button is selected I want the corresponding cell to allow data entry and
the other 2 to be locked. Why does this code not work:

Private Sub OptionButton1_Click()
Worksheets("PART A").Unprotect
Worksheets("PART A").Range(i11).Locked = False
Worksheets("PART A").Range("i13:i15,d23:d24").Locked = True
Worksheets("PART A").Protect
End Sub

Option Button
 

Hi Bob

Thanks for your help. I corrected missing quotes, but I am still getting an
error:
"Run time error 1004: Unable to set the Locked property of the Range class"

I am using data validation to limit the number of characters in the cells.

I have tried to recreate the error in a separate spreadsheet with just the 3
buttons and 3 cells, with data validation and it works fine, but I
consistently get the error in my form. I have check the help and none of it
seems to apply. Any suggestions?

"Bob Phillips" wrote:

This works for me. You were close

Private Sub OptionButton1_Click()
Worksheets("PART A").Unprotect
Worksheets("PART A").Range("I11").Locked = False
Worksheets("PART A").Range("I13:I15,D23:D24").Locked = True
Worksheets("PART A").Protect
End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"smcs" wrote in message
...
I have little knowledge of how to write VB code.
I have a form with 3 option buttons alongside 3 cells for data entry.
When
a button is selected I want the corresponding cell to allow data entry and
the other 2 to be locked. Why does this code not work:

Private Sub OptionButton1_Click()
Worksheets("PART A").Unprotect
Worksheets("PART A").Range(i11).Locked = False
Worksheets("PART A").Range("i13:i15,d23:d24").Locked = True
Worksheets("PART A").Protect
End Sub

Option Button
 

I have found my problem. The cells that I am referencing are merged cells,
eg I11 is the first cell in the range I11 to R11 which have been merged into
one cell. The problem is fixed by referencing the range that has been merged.

Thanks for your help.

"Bob Phillips" wrote:

This works for me. You were close

Private Sub OptionButton1_Click()
Worksheets("PART A").Unprotect
Worksheets("PART A").Range("I11").Locked = False
Worksheets("PART A").Range("I13:I15,D23:D24").Locked = True
Worksheets("PART A").Protect
End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"smcs" wrote in message
...
I have little knowledge of how to write VB code.
I have a form with 3 option buttons alongside 3 cells for data entry.
When
a button is selected I want the corresponding cell to allow data entry and
the other 2 to be locked. Why does this code not work:

Private Sub OptionButton1_Click()
Worksheets("PART A").Unprotect
Worksheets("PART A").Range(i11).Locked = False
Worksheets("PART A").Range("i13:i15,d23:d24").Locked = True
Worksheets("PART A").Protect
End Sub