Reset radio buttons w/ protected worksheet

[dgold82]

I have a macro connected to a command button that clears all the radio
buttons on a worksheet. Only problem is when the worksheet is protected it no
longer works and gives me error #400. What do I need to do to clear
everything when locked? Here is my current code:

Sub ResetAll()
Dim OptBtn As OptionButton
With ActiveSheet
.Cells.Interior.ColorIndex = xlNone
For Each OptBtn In .OptionButtons
OptBtn.Value = False
Next OptBtn
End With
End Sub

 

[Nigel]

Try....

Sub ResetAll()
Dim OptBtn As OptionButton
With ActiveSheet
.Unprotect Password:="myPassword"
.Cells.Interior.ColorIndex = xlNone
For Each OptBtn In .OptionButtons
OptBtn.Value = False
Next OptBtn
.Protect Password:="myPassword"
End With
End Sub

 

[dgold82]

Thank you! Works perfectly.

Try....

Sub ResetAll()
Dim OptBtn As OptionButton
With ActiveSheet
.Unprotect Password:="myPassword"
.Cells.Interior.ColorIndex = xlNone
For Each OptBtn In .OptionButtons
OptBtn.Value = False
Next OptBtn
.Protect Password:="myPassword"
End With
End Sub

--

Regards,
Nigel
(e-mail address removed)