怎么启用和取消Private Sub Worksheet_Activate()的高级筛选呢？

zyhui1961

怎么启用和取消Private Sub Worksheet_Activate()的高级筛选呢？

下面是高级筛选代码（受保护工作表密码为333）：
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:="333"
    st = Sheets("基本设置").[N7].Value
    ActiveSheet.Range("m8:m" & Cells(Rows.Count, 3).End(3).Row).AutoFilter Field:=1, Criteria1:=st, _
        Operator:=xlOr, Criteria2:="="   
ActiveSheet.Protect Password:="333"
End Sub



就是想做两个按钮（分别指定宏），一个启用高级筛选，一个暂时取消高级筛选

huang1314wei

你这是自动筛选，不是高级筛选吧
if activesheet.filtermode then
   activesheet.filtermode=flase
else
ActiveSheet.Unprotect Password:="333"
    st = Sheets("基本设置").[N7].Value
    ActiveSheet.Range("m8:m" & Cells(Rows.Count, 3).End(3).Row).AutoFilter Field:=1, Criteria1:=st, _
        Operator:=xlOr, Criteria2:="="   
ActiveSheet.Protect Password:="333"
  

zyhui1961

huang1314wei 发表于 2015-7-30 07:44
你这是自动筛选，不是高级筛选吧
if activesheet.filtermode then
   activesheet.filtermode=flase

是的，是用代码自动筛选有筛选前头的各工作表(需要筛选的有6个工作表)的列(需要筛选的相应工作表内必需复制有此代码才能筛选)。

请问老师你这代码怎么用：
1：怎样一键暂时取消参加筛选的全部6个工作表的自动筛选？
2：怎么再恢复参加筛选的全部6个工作表的自动筛选？

huang1314wei

zyhui1961 发表于 2015-7-30 08:22
是的，是用代码自动筛选有筛选前头的各工作表(需要筛选的有6个工作表)的列(需要筛选的相应工作表内必需 ...

暂时取消
for each ws in worksheets
  if ws.filtermode then
    ws.filtermode=flase
  end if
next

恢复筛选状态
for each ws in worksheets
    if not ws.filtermode then
      ws.range("A1").autofilter
   end if
next

如果有问题，请上传你的附件说明问题

zyhui1961

huang1314wei 发表于 2015-7-30 08:30
暂时取消
for each ws in worksheets
  if ws.filtermode then

好的，我来上传个附件，请老师帮忙看一下，谢谢！！

新炊间黄梁

想看老师最后的结果，谢谢分享

zyhui1961

新炊间黄梁 发表于 2018-8-25 21:42
想看老师最后的结果，谢谢分享

我那个文件涉及好多不能公开的东西（请谅解），用下面已经很成熟的代码你自己研究一下（“退绩”是当前工作表名、  st = Sheets("说明").[K6].Value是要筛选的引用单元格）：
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:="333"

    ActiveWorkbook.Worksheets("退绩").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("退绩").Sort.SortFields.Add Key:=Range("C7:C350"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("退绩").Sort.SortFields.Add Key:=Range("G7:G350"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("退绩").Sort.SortFields.Add Key:=Range("E7:E350"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("退绩").Sort
        .SetRange Range("C7:J350")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    st = Sheets("说明").[K6].Value
    ActiveSheet.Range("m8:m" & Cells(Rows.Count, 3).End(3).Row).AutoFilter Field:=1, Criteria1:=st, _
        Operator:=xlOr, Criteria2:="=1"
        Range("A7:A17").Select
        ActiveSheet.Protect Password:="333"

End Sub

新炊间黄梁

zyhui1961 发表于 2018-9-3 08:58
我那个文件涉及好多不能公开的东西（请谅解），用下面已经很成熟的代码你自己研究一下（“退绩”是当前工 ...

谢谢大神指点啦，我先学学看。