Excel VBA非过滤宏

我正在尝试设计一个宏，它可以简单地关闭某个工作簿上的筛选。我已经开始编写代码，但由于某些原因，在注释下的第一行，它会导致应用程序或对象定义的错误。我真的很困惑为什么会这样。我已经把代码贴在下面了。任何帮助都将不胜感激

Sub crossUpdate()

Dim rng1 As Range, rng2 As Range, rng1Row As Range, rng2Row As Range, Key As Range, match As Integer

Workbooks("011 High Level Task List v2.xlsm").Activate

'Unhide and Unfilter columns and rows on original sheet
With Sheets("Development Priority List").Cells
 .EntireColumn.Hidden = False
 .EntireRow.Hidden = False
 .AutoFilter
End With

---

尝试此操作，并以类似方式修改以下代码行：

ActiveWorkbook.Sheets("Sheet3").Cells.EntireColumn.Hidden = False

为了节省打字时间，您还可以考虑：

With ActiveWorkbook.Sheets("Sheet3").Cells
.EntireColumn.Hidden = False
.EntireRow.Hidden = False
.AutoFilter
End With

---

您需要确定哪一列和哪一行我为什么需要这样做？我想把所有的东西都藏起来，然后过滤掉。是的，阿波罗。出于某种原因，我在考虑隐藏而不是取消隐藏。去掉ActiveWorkbook部分。激活工作簿后，仅使用工作表引用就可以了。如果希望继续使用ActiveWorkbook，则必须显式声明工作表名称。与ActiveWorkbook.Sheets类似，尽管工作表名称为.EntireClumn.Hidden=False，但它仍然会给我对象定义的错误。我对上面的代码进行了更改。此代码对我有效，因此可能是其他代码。您的工作簿/工作表/单元格是否受到任何保护？此外，您的代码存储在哪里？它应该位于“标准”模块中，而不是“工作表”模块中。也许还可以尝试保存/关闭/重新打开工作簿？

With ActiveSheet
    .AutoFilterMode = False
    .Cells.EntireRow.Hidden = False
    .Cells.EntireColumn.Hidden = False
End With