vba - excel:带有 protected 工作表的高级过滤器

Question

我在这张工作表中使用高级筛选器来搜索工作簿中另一个工作表中的信息。

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

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

Advanced Filter can't run in Protected Sheet.

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

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

尝试一下，看看是否可以消除错误。如果没有，我已经读到，在锁定工作表之前将自动过滤器属性设置为 True 可能会有所帮助。