excel中利用VBA在受到保护的工作表中进行自动筛选

来源:互联网 时间:2016-01-03

当在工作表中设置了自动筛选,而在保护工作表时没有选择允许“使用自动筛选”,那么自动筛选功能在保护工作表后无法使用。如果需要在不解除工作表保护的情况下能够使用自动筛选,可以用下面的VBA代码:

1.按Alt+F11,打开VBA编辑器,在“工程”窗口中选择相应的工作表,在右侧的代码窗口中输入下面的代码:

Sub AutoFilterInProtectedSheet()

With ActiveSheet

.EnableAutoFilter = True

.Protect DrawingObjects:=True, _

contents:=True, Scenarios:=True, _

UserInterfaceOnly:=True

End With

End Sub

2.让受保护的工作表处于活动状态,运行代码。

相关阅读:
Top