百度好多方法都无效,下面方法可行:
-
点击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编辑器即可。