Question

使用Excel 2010并遇到难以解决的问题。我有一个受保护的工作表（供应商）。我取消保护，应用自动过滤器，保存然后保护。当我运行以下代码时，正在删除自动过滤器，为什么？过滤器位于Cell A4：AO4上。这是我的代码 - 它将数据从SQL SP提取到范围A5：

Sheets("Supplier").Visible = True

'Unprotect worksheet
Worksheets("Supplier").Unprotect Password:="xxxxxxxxx"

'=== Code that fetches data from SQL server in to Cell A5 and below.....

Application.Goto Reference:=Worksheets("Supplier").Range("A5")

'protect worksheet
Worksheets("Supplier").Protect Password:="xxxxxxxx", AllowFormattingCells:=True, AllowFiltering:=True

我在其他地方使用相同的代码，并且不会删除自动过滤器。

Answer 1

修正了它。我在供应商工作表的激活码中有以下代码。我删除了它，它现在有效：

If ActiveSheet.AutoFilterMode Then Cells.AutoFilter

Excel自动过滤器自行删除

1 个答案: