不允许过滤器保护的工作表

Question

我发现了很多记录，如何在保存文件时允许在受保护的工作表上进行过滤，但是，我的问题却是相反的：
我想使用VBA从受保护的工作表中导入数据。我无法取消保护工作表，也无法保存其他版本。我只是要忍受保护。
使用“记录宏”功能时，我得到的代码是这样的：

Sub Macro1()
    ActiveSheet.Range("$A$10:$JD$4364").AutoFilter Field:=101 'Unfilter one column
    ActiveSheet.Range("$A$10:$JD$4364").AutoFilter Field:=14, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "3/1/2019") 'Filter for criteria
End Sub

因此它确实可以“手动”运行。但是，当我将此代码嵌入到导入宏中时，会收到以下错误消息：

error message

是否可以执行过滤器？隐藏行也是不可能的。我不需要使用自动过滤器，一个普通的过滤器就可以（如果有另一个过滤器的话）。

非常感谢！