百度好多方法都无效,下面方法可行:
-
点击sheet单元格名称,鼠标右边出现弹框选择“查看代码”:
-
出现的框中输入以下代码:
Sub demo()//' 锁定当前工作表,允许筛选操作ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True//' 解除对当前工作表的锁定,但保留内容不变,允许筛选操作ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True//' 完全解锁当前工作表ActiveSheet.Unprotect End Sub
如图:
-
关闭Visual Basic编辑器即可。