Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
keep source formatting is not an option in paste option button | Excel Discussion (Misc queries) | |||
option button-if else? | Excel Programming | |||
Option button | Excel Programming | |||
When using an Option Button can I... | Excel Programming | |||
value of option button | Excel Programming |