當(dāng)在工作表中設(shè)置了自動篩選,而在保護工作表時沒有選擇允許“使用自動篩選”,那么自動篩選功能在保護工作表后無法使用。如果需要在不解除工作表保護的情況下能夠使用自動篩選,可以用下面的VBA代碼:
1.按Alt+F11,打開VBA編輯器,在“工程”窗口中選擇相應(yīng)的工作表,在右側(cè)的代碼窗口中輸入下面的代碼:
Sub AutoFilterInProtectedSheet()
With ActiveSheet
.EnableAutoFilter = True
.Protect DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End With
End Sub
2.讓受保護的工作表處于活動狀態(tài),運行代碼。