只需一步,快速开始
快捷登录
TA的精华主题
TA的得分主题
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)Sheet1.Protect "111"End Sub
执行如上代码,通过调用窗体将工作表自动保护,但保护后,原先的自动筛选功能就无法使用了,应该加入哪段代码?
ActiveSheet.Unprotect "111"?
举报
在保护前确保工作表处于自动筛选模式,并在保护时指定允许自动自动筛选功能.
With Sheet1 If .AutoFilterMode = False Then .Range("A1").AutoFilter'自动筛选区域自行更改. .Protect "111", AllowFiltering:=TrueEnd With
本版积分规则 发表回复 回帖后跳转到最后一页
手机版|关于我们|联系我们|ExcelHome
GMT+8, 2025-2-25 20:48 , Processed in 0.020720 second(s), 10 queries , Gzip On, MemCache On.
Powered by Discuz! X3.4
© 1999-2023 Wooffice Inc.
沪公网安备 31011702000001号 沪ICP备11019229号-2
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任! 本站特聘法律顾问:李志群律师