Private WithEvents CBBEvents1 As CommandBarButton
Private Sub CBBEvents1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
If Ctrl.State = msoButtonDown Then
Ctrl.State = msoButtonUp
BLOQUE_EVENT_SELECT = False
Else
Ctrl.State = msoButtonDown
BLOQUE_EVENT_SELECT = True
End If
End Sub