这对我很有效：

Sub ConfirmCheckbox()
    With ActiveSheet.CheckBoxes(Application.Caller)
        If MsgBox("Are you sure you want to change this box?", vbYesNo, _
                                            "Confirm Checkbox") <> vbYes Then
            .Value = IIf(.Value = xlOff, xlOn, xlOff) 'revert the change
        End If
    End With
End Sub

将ActiveSheet.CheckBoxes(Application.Caller).Value的值保存在某处，然后使用Not将boolean切换为true/false
由于某种原因，我不能直接使用val = ActiveSheet.CheckBoxes(Application.Caller).Value，所以我添加了一个额外的If Then Else来设置值

Sub ConfirmCheckbox()
    Dim val As Variant
    
    If ActiveSheet.CheckBoxes(Application.Caller).Value = -4146 Then
        val = True
    Else
        val = False
    End If
    
    If MsgBox("Are you sure you want to check this box?", vbYesNo, "Confirm Checkbox") = vbYes Then
        ActiveSheet.CheckBoxes(Application.Caller).Value = Not val
    Else
        ActiveSheet.CheckBoxes(Application.Caller).Value = val
    End If
End Sub