Sub 主表()
'
' 主表 Macro
'
'
    ActiveSheet.Unprotect ("172212473")
    ActiveSheet.Range("$A$3:$AH$500").AutoFilter Field:=1, Criteria1:="<>"
    ActiveSheet.ShowAllData
   ActiveSheet.Protect ("172212473")
End Sub
这下面是保护工作表时的选项代码，只钩选允许自动筛选时的，
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
    ActiveSheet.EnableSelection = xlNoSelection
如何整合到SUB主表中？