Excel中单元格变更时锁定指定列并保留表头筛选排序功能的问题

解决方法 #

你遇到的排序筛选失效问题，是因为工作表保护状态下默认禁用了这类操作，需要在手动保护配置和VBA代码的保护逻辑中同时开放对应权限，操作步骤如下：

提示：操作前请确认你已经在未保护状态下开启了表头的自动筛选：选中表头行，点击顶部「数据」→「筛选」，确保表头单元格已经显示筛选箭头之后再执行后续操作。

步骤1：调整手动保护工作表的权限配置 #

• 先取消当前工作表的保护：点击顶部菜单栏「审阅」→「取消工作表保护」，输入密码Test@pass确认
• 重新进入保护工作表配置页：点击「审阅」→「保护工作表」
• 在「允许此工作表的所有用户进行」的选项列表中，除原有已勾选项外，额外勾选排序和使用自动筛选两个选项，输入密码后确认保存

步骤2：修改VBA代码的保护参数 #

你现有代码中，每次完成单元格内容修改后重新保护工作表时，没有指定开放排序筛选权限，会覆盖你手动设置的配置，需要将代码最后一行的保护语句补充参数：

将原代码最后一行：

ActiveSheet.Protect Password:="Test@pass"

替换为：

ActiveSheet.Protect Password:="Test@pass", AllowSorting:=True, AllowFiltering:=True

验证效果 #

修改完成后保存代码，既可以正常编辑前4列自动更新后两列的时间，也可以正常使用表头的排序、筛选功能。

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