如何用Excel复选框替代单元格值控制行显示隐藏（VBA实现）

在A17位置有一个复选框，希望替代M9单元格的0/1值功能，实现勾选时显示20-22行、取消勾选时隐藏这些行。原VBA代码通过监控M9单元格的值触发逻辑，代码如下：

If Target.Address = "$M$9" Then
    If Target.Value > 0 Then
        If ActiveSheet.ProtectContents Then
            ActiveSheet.Unprotect Password:="TL1234Kvalitet"
            Rows("20:22").EntireRow.Hidden = False
            ActiveSheet.Protect Password:="TL1234Kvalitet"
        Else
            Rows("20:22").EntireRow.Hidden = False
        End If
    Else
        If ActiveSheet.ProtectContents Then
            ActiveSheet.Unprotect Password:="TL1234Kvalitet"
            Rows("20:22").EntireRow.Hidden = True
            ActiveSheet.Protect Password:="TL1234Kvalitet"
        Else
            Rows("20:22").EntireRow.Hidden = True
        End If
    End If
End If

尝试过类似If Target.Address = "Check Box 8" Then If Target.Value = True Then的代码，但未成功，需要正确引用复选框实现需求。

Excel中的复选框分为表单控件复选框和ActiveX控件复选框，两种的触发逻辑与引用方式不同，分别处理如下：

一、表单控件复选框处理 #

表单控件需绑定宏来触发逻辑，步骤如下：

1. 右键复选框 → 【指定宏】，新建宏（例如命名为ToggleRowsVisibility）
2. 打开VBA编辑器，将宏内容替换为：

Sub ToggleRowsVisibility()
    Dim cb As CheckBox
    Set cb = ActiveSheet.CheckBoxes(Application.Caller) ' 通过调用者获取当前触发的复选框
    
    Dim shouldShow As Boolean
    shouldShow = cb.Value = xlOn ' 勾选状态为xlOn，取消为xlOff
    
    ' 统一处理行显示/隐藏，兼容工作表保护逻辑
    If ActiveSheet.ProtectContents Then
        ActiveSheet.Unprotect Password:="TL1234Kvalitet"
        Rows("20:22").EntireRow.Hidden = Not shouldShow
        ActiveSheet.Protect Password:="TL1234Kvalitet"
    Else
        Rows("20:22").EntireRow.Hidden = Not shouldShow
    End If
End Sub

说明：Application.Caller自动返回触发宏的控件名称，无需硬编码复选框名称，适配性更强。

二、ActiveX控件复选框处理 #

ActiveX控件自带Click事件，直接在事件代码中编写逻辑：

1. 右键复选框 → 【查看代码】，自动打开对应工作表模块
2. 替换为以下代码（注意控件名称需与你的复选框一致，可在【开发工具】→【属性】窗口查看(名称)属性）：

Private Sub CheckBox1_Click()
    Dim shouldShow As Boolean
    shouldShow = Me.CheckBox1.Value ' 勾选状态为True，取消为False
    
    If ActiveSheet.ProtectContents Then
        ActiveSheet.Unprotect Password:="TL1234Kvalitet"
        Rows("20:22").EntireRow.Hidden = Not shouldShow
        ActiveSheet.Protect Password:="TL1234Kvalitet"
    Else
        Rows("20:22").EntireRow.Hidden = Not shouldShow
    End If
End Sub

错误原因说明 #

你之前的写法错误在于：Target.Address仅用于获取单元格地址，无法引用复选框；表单控件需通过CheckBoxes("控件名称")引用，ActiveX控件直接用控件名称，但两者都不能通过Worksheet_Change事件触发，需用各自的宏或Click事件。

内容的提问来源于stack exchange，提问作者jonathan Jonfan brandstrup