I put a couple of optionbuttons from the control toolbox toolbar on my test
worksheet.

I added the code to the worksheet's module.

The code worked fine when I clicked OptionButton1.

But the only time excel sees you click on optionbutton1 is when you change its
value from off to on. You actually turn it off by selecting (clicking on) a
different optionbutton.

So have one procedure for each button:

Option Explicit
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
With Me
.Unprotect
With Me.Range("I22:K35")
.Locked = False
.FormulaHidden = False
.Interior.ColorIndex = 39
End With
.Protect
End With
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
With Me
.Unprotect
With Me.Range("I22:K35")
.Locked = True
.FormulaHidden = True
.Interior.ColorIndex = xlNone
End With
.Protect
End With
End If
End Sub

I don't know what your 3rd optionbutton does.

5elpep wrote:

Cheers Dave & Fred,

I am now trying to control protection on part of the worksheet via one
of my option buttons.
Basically when the option is checked the cells should be unprotected
and when I select one of the other option buttons in the group the
cells should be protected again.

I am using the below code but it oesn't seem to work. It unprotects
and protects the sheet fine but it won't format the cells as
required. Any pointers would be much appreciated.

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then

ActiveSheet.Unprotect
Range("I22:K35").Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.Interior.ColorIndex = 39
ActiveSheet.Protect

Else

ActiveSheet.Unprotect
Range("I22:K35").Select
Selection.Locked = True
Selection.FormulaHidden = True
Selection.Interior.ColorIndex = xlNone
ActiveSheet.Protect

End If
End Sub

--

Dave Peterson