excel：带有受保护工作表的高级过滤器

Question

我有这张表，我使用高级过滤器在我的工作簿的另一个表中搜索信息。

此外，我想保护工作表，因为我在单元格上有一些人们不应该更改的公式，但我也有用户应该提供一些信息的单元格，然后我已经像你一样解锁了这些单元格可以看下面：

问题是当我单击“过滤器”按钮时尝试运行高级过滤器。我收到一条错误消息：

高级筛选器无法在受保护的工作表中运行。

所以我将此代码关联到我的“过滤器”按钮：

Private Sub Filtrar_Click()

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
    wks.Unprotect "Password"
    Call LimparAntes
    wks.Protect "Password", UserInterfaceOnly:=True
Next

End Sub

LimparAntes 子程序是调用高级过滤器的例程，但我仍然遇到同样的错误，所以我很怀疑。代码如下：

Sub LimparAntes()
'
' LimparAntes Macro
'

'
Dim Lastrow As Long
Lastrow = Sheets("AUX").Range("A" & rows.Count).End(xlUp).Row

    Sheets("AUX").Range("A1:K" & Lastrow).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("CONSULTA").Range("D34:I35"), CopyToRange:=Sheets("CONSULTA").Range("B40:K40"), Unique:= _
        False
    Sheets("CONSULTA").Range("F37").Select

End Sub

这是正确的方法吗？我做了很多研究，但我找不到任何人与高级过滤器有同样的问题，所以我什至不知道是否有可能实现我想要的。

Answer 1

这就是所有的代码吗？

仅查看代码而不执行它，第一步应该是通过以下操作解锁/取消保护所有工作表：

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
    wks.Unprotect "Password"
Next

然后在完成后，您应该运行 LimparAntes()。然后将复制/过滤您需要的数据。最后，您应该锁定床单。

Private Sub Filtrar_Click()

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
    wks.Unprotect "Password"    'Unprotect all sheets first
Next

Call LimparAntes     'Call filter sub

For Each wks In ActiveWorkbook.Worksheets
    wks.Protect "Password", UserInterfaceOnly:=True     'Re-Protect all sheets
Next

End Sub

试试这个，看看它是否能消除错误。如果没有，我已经读过在锁定工作表之前将 autofilter 属性设置为 True 可能是有益的。