Vba WorkbookOpen事件不适用于AutoFilterDateGrouping

我已在此工作簿（Excel 2010）中在personal.xlsb中创建了以下vba脚本：

它不起作用。 我收到vba运行时错误：91对象变量或未设置块变量。 虽然它可以在打开文件后手动运行

---

其目的是为所有新打开的文件自动将AutoFilterDateGrouping设置为False。

我发现了脏的解决方案：

模块：

子启动（）

ActiveWindow.AutoFilterDateGrouping=False

端接头

工作簿部分：

子工作簿_Open（）

Application.OnTime Now（）+时序（0,0,1），“启动”

端接头

---

尝试在“Application.ActiveWindow…”之前添加“Stop”，然后重新打开工作簿。然后在调试模式下观察哪些未设置（可能还没有ActiveWindow？）。当打开个人宏工作簿时，代码会运行，此时没有工作簿处于活动状态。我理解这一点，但如何解决它？

Sub Workbook_Open()

     Application.ActiveWindow.AutoFilterDateGrouping = False

End Sub