为Mac上的自动过滤功能VBA工作?

Question

我试图在每个工作表使用密码保护之前，为工作簿的每个页面的标题行打开自动过滤器。我用的是微软的Mac版Excel，如果你熟悉的话，它缺乏Windows机器上的VBA的完整功能。

我看到了关于这个主题的另一个问题，并尝试实现该代码，但它没有工作。当我记录一个宏时，它基本上给我下面的前两行代码减去'ws。在前面。

For Each ws In ThisWorkbook.Worksheets

ws.Range("A1").Select

Selection.AutoFilter

ws.Protect "password"

Next ws

但是当我把它添加到我的大宏，它给了我1004错误说*方法'选择'对象'范围'失败*

Answer 1

您可能需要先激活表单

Dim ws as Excel.Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Activate
ws.Range("A1").Select
Selection.AutoFilter
ws.Protect "password"
Next ws

如果您不希望看到工作表在循环中闪烁，请关闭屏幕更新，然后在循环完成时再次打开。