Определите, не сняты ли все кнопки опций на листе

Question

У меня есть 4 кнопки управления формой на листе. Я пытаюсь установить жесткую остановку перед функцией печати, если все 4 кнопки опций остались непроверенными. Я успешно получил все мои флажки (используемые формы не образуют контроль), чтобы вызвать, если оставить пустым, но ничего не получаю для кнопок.

If ActiveSheet.OptionButtons("button3") = Unchecked _ 
And ActiveSheet.OptionButtons("button20") = Unchecked _ 
And ActiveSheet.OptionButtons("button45") = Unchecked _ 
And ActiveSheet.OptionButtons("buttonEpic") = Unchecked Then 
MsgBox "Missing" 
Cancel = True 
End If 
End Sub 

Я также попытался = False и .value = false. Все кнопки в настоящее время не отмечены, но это не вызывает окно сообщения или жесткую остановку. Спасибо за любую помощь!

Answer 1

очень простой обходной путь, так как я могу идентифицировать установленную кнопку опций на листе, но не если она не проверена. Я просто определяю, проверена ли одна из четырех кнопок, ничего не делать, если это правда и отменить, если false.

Private Sub Workbook_BeforePrint (Cancel as Boolean) 

With ActiveSheet 
If .Optionbuttons ("button1").Value = Checked _ 
Or .Optionbuttons ("button2").Value = Checked _ 
Or .Optionbuttons ("button3").Value = Checked Then 
Exit Sub 
Else: Msgbox "Please select an option" 
Cancel = True 
End If 
End With 
End Sub