Excel受保护工作表筛选数据时表单控件复选框出现额外项求助

我碰到过不少用户遇到这个糟心的问题——表单控件复选框在筛选数据时，最后一行莫名多出一个，哪怕设置了「移动但不随单元格调整大小」也没用。给你几个亲测有效的解决办法：

• 先排查多余控件的根源
  有时候那个额外的复选框其实是你之前复制控件时不小心弄到了数据区域之外的行，平时没筛选看不到，一筛选就被带出来了。你可以这么找：打开「开发工具」→点击「选择对象」工具，然后框选第一列的整个数据区域，就能看到所有复选框的位置。找到那个不属于有效行的复选框，直接删掉就行。之后再逐个确认剩下的复选框都精准对应第一列的有效数据行，别超出范围。

• 换用ActiveX控件复选框试试
  表单控件在筛选、行隐藏这类场景下的兼容性确实一般，换成ActiveX控件的复选框，稳定性会好很多：

  1. 打开「开发工具」→「插入」→选「复选框（ActiveX控件）」
  2. 右键这个复选框→「属性」，设置LinkedCell为对应的单元格，再把MoveAndSize属性改成2 - fmMoveAndSizeNone（就是「移动但不随单元格调整大小」的对应选项）
  3. 复制这个设置好的控件到所有需要的行，ActiveX控件在筛选时基本不会莫名生成多余控件。

• 用VBA批量清理多余控件（彻底解决）
  如果表单控件的问题反复出现，写一段简单的VBA代码就能彻底搞定，每次筛选完运行一下，自动删掉无效的复选框：

  Sub CleanExtraCheckBoxes()
      Dim cb As CheckBox
      Dim ws As Worksheet
      Set ws = ActiveSheet
      ' 遍历工作表所有表单控件复选框
      For Each cb In ws.CheckBoxes
          ' 只保留第一列可见行对应的复选框
          If cb.TopLeftCell.Column = 1 And Not ws.Rows(cb.TopLeftCell.Row).Hidden Then
              ' 有效控件，保留
          Else
              ' 无效或多余控件，直接删除
              cb.Delete
          End If
      Next cb
  End Sub
  

  你可以把这段代码粘贴到工作表的代码模块里（右键工作表标签→「查看代码」，粘贴进去），每次筛选完运行一下就行。要是想更省心，还可以设置成筛选时自动触发运行（需要用到Worksheet_Calculate事件，不过手动运行已经够解决问题了）。

• 调整工作表保护的细节设置
  因为你的工作表是受保护的，而且单元格有Locked和Hidden属性，可能保护设置影响了控件的行为：

  1. 先取消工作表保护：「审阅」→「撤销工作表保护」
  2. 全选第一列的有效数据行，右键→「设置单元格格式」→「保护」，确认Locked和Hidden的设置符合你的需求
  3. 重新保护工作表时，记得在「允许此工作表的所有用户进行」列表里勾选「编辑对象」选项，这样控件的移动和显示逻辑会更准确，不容易出问题。

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