Brun, supondo que estamos falando de checkbox em formulário, podemos utilizar a rotina abaixo, se não for em formulário é só adaptar para uso do controle que inseriu na planilha.
Private Sub CheckBox1_Click()
Dim sMsg
If CheckBox1 = True Then
sMsg = MsgBox("Você selecionou o Checkbox", vbYesNo + vbDefaultButton1 + vbQuestion, _
"Checkbox Selecionado")
Application.EnableEvents = False
Cancel = True
If sMsg = vbYes Then
CheckBox1 = True
ElseIf sMsg = vbNo Then
CheckBox1 = False
Else
Cancel = True
End If
Application.EnableEvents = True
End If
End Sub
Vale uma obs quando diz "sempre que for selecionado tal checkbox....Se a opção for "sim", ficará marcado, se for "não" fica desmarcado", estou supondo que os valores iniciais dos checkbox são falsos e pela maneira que postou só é solicitado confirmação quando marcamos o mesmo e não quando desmarcamos.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/05/2013 5:43 am