Excel工作表锁定后仍可编辑复选框？如何禁用工作表内复选框编辑权限

• Excel工作表保护的默认管控逻辑，仅作用于锁定状态的单元格、以及明确配置了锁定属性的对象；原代码仅配置了“仅允许选中未锁定单元格”的选择限制，未对控件的交互权限做约束。
• 表单类/ActiveX类复选框的默认属性为“未锁定”，工作表保护开启后仍允许用户直接交互勾选，完全不受EnableSelection规则的影响。
• 原代码使用无参数的.Protect写法时，Excel默认将DrawingObjects参数设为False，即默认放行所有形状、控件对象的编辑交互，保护规则根本没覆盖到复选框。

方案1：批量锁定所有复选框控件（适配全场景） #

在开启工作表保护前，遍历工作表内两类复选框（表单控件、ActiveX控件），统一将其Locked属性设为True，再搭配原有选择规则开启保护，调整后可直接运行的VBA代码：

With ActiveSheet
    ' 遍历锁定所有表单控件类型的复选框
    Dim shp As Shape
    For Each shp In .Shapes
        If shp.Type = msoFormControl Then
            If shp.FormControlType = xlCheckBox Then
                shp.Locked = True
            End If
        End If
    Next shp
    ' 遍历锁定所有ActiveX控件类型的复选框
    Dim oleObj As OLEObject
    For Each oleObj In .OLEObjects
        If TypeName(oleObj.Object) = "CheckBox" Then
            oleObj.Locked = True
        End If
    Next oleObj
    ' 开启工作表保护，保留原有的单元格选择限制规则
    .Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
    .EnableSelection = xlUnlockedCells
End With

若需设置工作表保护密码，将代码中Password:=""的空字符串替换为实际的密码内容即可。

方案2：显式开启控件保护拦截（轻量改造） #

如果不需要单独调整控件属性，只要在调用.Protect方法时，显式将DrawingObjects参数设为True，即可拦截所有形状、控件的交互操作，最小化修改原代码：

With ActiveSheet
    ' 显式启用对所有形状、控件对象的保护
    .Protect DrawingObjects:=True, Contents:=True
    .EnableSelection = xlUnlockedCells
End With

踩坑提示：不要保留无参数的.Protect写法，该写法的默认保护规则完全不覆盖形状控件，是原代码失效的核心诱因。

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