高清电影_高清电视剧_热门资讯_Excel学习_迅雷电影下载_网络资源

Sub Macro1()
sheet1.Protect AllowFiltering:=true
sheet1.unProtect
End Sub

保护时如果选择了最后两项的话，这两句会失效，使用以下四句可能解决
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True, AllowUsingPivotTables:=True
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True, AllowUsingPivotTables:=True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True, AllowUsingPivotTables:=True
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True
    ActiveSheet.Unprotect