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

当在工作表中设置了自动筛选，而在保护工作表时没有选择允许“使用自动筛选”，那么自动筛选功能在保护工作表后无法使用。如果需要在不解除工作表保护的情况下能够使用自动筛选，可以用下面的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.让受保护的工作表处于活动状态，运行代码。