访问被拒绝的消息VBA

Question

我写了一个宏来逐个打开一个文件夹中的excel文件，并搜索每个文件中的关键字。但是，我无法访问其中一个文件。所以出现错误消息“拒绝访问”。当宏打开该文件时，请联系您的管理员。所以我需要手动点击确定以使宏继续运行。

只想知道是否有任何方法可以让宏跳过该文件。目前以下方式无法阻止错误消息传出。

On Error Resume Next
    Workbooks.Open Filename:=path.Value, ReadOnly:=True, UpdateLinks:=False, Password:="****"
    If Err <> 0 Then
       For intCount = LBound(strArray) To UBound(strArray)
       ActiveWorkbook.ActiveSheet.Cells(6 + j, 4 + intCount) = "Can't Open File"
       Next
    GoTo Label2
    Else

Answer 1

将其添加到子

的顶部

Application.DisplayAlerts = False

不确定这是否会解决，但如果我遇到这种情况，那将是我尝试的第一件事