嘿，这个需求我之前帮不少同行解决过——原生的VBA MsgBox确实不带复选框功能，不过咱们可以用自定义用户窗体来实现，效果和原生消息框几乎一致，还能灵活定制。下面我给你一步步拆解实现方法，再分享几个实用技巧：

1. 先创建用户窗体 #

打开你的VBA编辑器（按Alt+F11），右键点击项目窗口里的工作簿 -> 插入 -> 用户窗体。

2. 添加并配置控件 #

在右侧的控件工具箱里，拖入这几个控件：

• 一个Label：用来显示提示消息文本
• 一个CheckBox：设置标题为“不再显示此消息？”
• 两个CommandButton：分别作为“确定”和“取消”按钮

然后调整布局：

• 把Label的WordWrap属性设为True，长文本会自动换行
• 调整窗体的Caption（标题）为你需要的提示标题，比如“系统提示”
• 把窗体的StartUpPosition设为2 - 屏幕中心，和原生MsgBox一样居中显示
• 把窗体的BorderStyle设为1 - 固定单边框，去掉最大化/最小化按钮，更贴近原生样式

3. 写窗体的核心代码 #

双击用户窗体打开代码窗口，粘贴以下代码：

' 模块级变量，用来返回用户的选择和复选框状态
Public UserChoice As VbMsgBoxResult
Public DontShowAgain As Boolean

Private Sub UserForm_Initialize()
    ' 这里可以自定义消息文本，也可以后续从外部传入
    Label1.Caption = "你的提示消息内容在这里！"
    CheckBox1.Caption = "不再显示此消息？"
    CommandButton1.Caption = "确定"
    CommandButton2.Caption = "取消"
End Sub

Private Sub CommandButton1_Click()
    UserChoice = vbOK
    DontShowAgain = CheckBox1.Value
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    UserChoice = vbCancel
    DontShowAgain = CheckBox1.Value
    Unload Me
End Sub

4. 在标准模块里调用窗体 #

插入一个标准模块（右键项目 -> 插入 -> 模块），写调用代码：

Sub ShowCustomMessageBox()
    ' 先检查用户是否之前勾选了“不再显示”，这里用隐藏工作表存储状态（也可以用注册表）
    ' 先确保有个名为Settings的隐藏工作表，或者改成本地单元格
    If ThisWorkbook.Sheets("Settings").Range("A1").Value = True Then Exit Sub
    
    With UserForm1
        .Show
        ' 保存用户的“不再显示”选择
        If .DontShowAgain Then
            ThisWorkbook.Sheets("Settings").Range("A1").Value = True
        End If
        ' 根据用户的按钮选择执行后续逻辑
        Select Case .UserChoice
            Case vbOK
                MsgBox "你选择了确定！"
                ' 这里写确定后的操作
            Case vbCancel
                MsgBox "你选择了取消！"
                ' 这里写取消后的操作
        End Select
    End With
End Sub

1. 用注册表保存“不再显示”状态（比工作表更可靠） #

如果用工作表存储状态，万一工作表被删除就失效了，用注册表更稳定：

' 读取用户是否勾选了“不再显示”
Function GetDontShowStatus() As Boolean
    On Error Resume Next
    ' 自定义注册表路径，换成你自己的应用标识
    GetDontShowStatus = CBool(CreateObject("WScript.Shell").RegRead("HKCU\Software\MyVBAProject\DontShowMsg"))
    On Error GoTo 0
End Function

' 保存用户的“不再显示”选择
Sub SaveDontShowStatus(status As Boolean)
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    ' 自动创建注册表路径
    WshShell.RegWrite "HKCU\Software\MyVBAProject\", "", "REG_SZ"
    WshShell.RegWrite "HKCU\Software\MyVBAProject\DontShowMsg", status, "REG_DWORD"
End Sub

调用时改成：

Sub ShowCustomMessageBox()
    If GetDontShowStatus() Then Exit Sub
    
    With UserForm1
        .Show
        If .DontShowAgain Then
            SaveDontShowStatus True
        End If
        ' 后续逻辑...
    End With
End Sub

2. 动态适配长文本的窗体大小 #

如果提示消息很长，手动调整窗体大小太麻烦，可以在UserForm_Initialize里自动计算：

Private Sub UserForm_Initialize()
    Dim msgText As String
    msgText = "这是一段非常长的提示消息，可能会占据多行空间，我们需要让窗体自动调整大小来适配这段文本，避免内容被截断。"
    Label1.Caption = msgText
    Label1.AutoSize = False
    Label1.WordWrap = True
    ' 计算Label需要的高度（加10是留上下边距）
    Label1.Height = Label1.TextHeight(msgText) + 10
    ' 调整窗体高度（Label的顶部位置 + Label高度 + 按钮高度 + 底部边距）
    Me.Height = Label1.Top + Label1.Height + CommandButton1.Height + 30
End Sub

3. 支持多种按钮组合（比如只显示确定按钮） #

如果有时候只需要显示“确定”按钮，不需要“取消”，可以给窗体加个参数控制：

' 在窗体模块里添加公共变量
Public ButtonStyle As VbMsgBoxStyle

Private Sub UserForm_Initialize()
    ' 根据ButtonStyle控制按钮显示
    If ButtonStyle = vbOKOnly Then
        CommandButton2.Visible = False
        ' 让确定按钮居中显示
        CommandButton1.Left = (Me.Width - CommandButton1.Width) / 2
    End If
End Sub

调用时：

Sub ShowOKOnlyMsgBox()
    UserForm1.ButtonStyle = vbOKOnly
    UserForm1.Show
End Sub

这样一套下来，你就能拥有一个完全符合需求的带复选框的自定义消息框了，有问题随时问！

内容的提问来源于stack exchange，提问作者user2699130