當在工作表中設置了自動篩選,而在保護工作表時沒有選擇允許“使用自動篩選”,那么自動篩選功能在保護工作表后無法使用。如果需要在不解除工作表保護的情況下能夠使用自動篩選,可以用下面的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.讓受保護的工作表處于活動狀態,運行代碼。