嘿，我来帮你搞定这个需求！要实现「输入正确密码后让两个复选框的互锁Sub停止运行」，核心是用全局开关变量来控制互锁代码的执行，下面是具体实现步骤和完整代码：

步骤1：声明全局控制变量 #

首先打开VBA编辑器（按Alt+F11），插入一个标准模块（右键项目→插入→模块），在模块顶部声明一个全局布尔变量，用来控制互锁逻辑是否生效：

' 全局变量：控制复选框互锁逻辑是否启用
Public g_bEnableInterlock As Boolean

' 模块初始化时默认启用互锁
Sub Auto_Open()
    g_bEnableInterlock = True
End Sub

步骤2：修改原有复选框的Click事件 #

回到你的Sheet模块（比如Sheet1），修改两个复选框的Click事件，在开头加入全局变量的判断——如果变量为False，直接退出Sub，不执行互锁代码：

Private Sub CRM_box_Click()
    ' 如果互锁逻辑已被禁用，直接退出
    If Not g_bEnableInterlock Then Exit Sub
    
    If CRM_box.Value = True Then
        CheckBox14.Value = False
        CheckBox14.Enabled = False
    Else
        CheckBox14.Value = False
        CheckBox14.Enabled = True
    End If
End Sub

Private Sub RMP_box_Click()
    ' 如果互锁逻辑已被禁用，直接退出
    If Not g_bEnableInterlock Then Exit Sub
    
    If RMP_box.Value = True Then
        CRM_box.Value = False
        CRM_box.Enabled = False
    Else
        CRM_box.Value = False
        CRM_box.Enabled = True
    End If
End Sub

步骤3：添加密码验证按钮 #

在工作表上插入一个ActiveX命令按钮（开发工具→插入→命令按钮（ActiveX控件）），命名为cmdUnlockInterlock，然后双击按钮进入它的Click事件，写入密码验证和开关切换的代码：

Private Sub cmdUnlockInterlock_Click()
    Dim strPassword As String
    strPassword = InputBox("请输入解锁密码：", "密码验证")
    
    ' 这里替换成你自己的密码
    If strPassword = "your_password_here" Then
        ' 切换互锁逻辑的状态
        g_bEnableInterlock = Not g_bEnableInterlock
        
        ' 根据状态给出提示，并恢复复选框的启用状态（如果之前被锁定）
        If g_bEnableInterlock Then
            MsgBox "互锁逻辑已恢复启用！", vbInformation
            ' 确保两个复选框都处于可用状态
            CRM_box.Enabled = True
            CheckBox14.Enabled = True
        Else
            MsgBox "互锁逻辑已暂停！现在可以自由操作两个复选框。", vbInformation
            CRM_box.Enabled = True
            CheckBox14.Enabled = True
        End If
    Else
        MsgBox "密码错误，请重试！", vbExclamation
    End If
End Sub

关键说明 #

• 全局变量g_bEnableInterlock的作用域是整个VBA项目，所以Sheet模块和标准模块都能访问它；
• Auto_Open过程会在Excel文件打开时自动执行，确保默认情况下互锁逻辑是启用的；
• 密码验证部分用了简单的InputBox，如果需要更高安全性，可以考虑加密存储密码（比如用哈希函数），但基础场景下这个实现足够用；
• 解锁时强制恢复两个复选框的启用状态，避免出现某个复选框一直被锁定的情况。

这样操作下来，平时两个复选框保持互锁逻辑，点击按钮输入正确密码后，互锁代码就会暂时停止运行，你可以自由操作两个复选框；再次输入密码就能恢复互锁啦！

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