Hello,
When trying to open a workbook the 400 error is beïng displayed.
I have tried to catch the error with the On Error possibilities, but to no effect.
The xlsm file is macro enabeled and password protected
Public Function Process_Files(Array_ID As Integer) As Boolean
Dim WB As Workbook
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.EnableCancelKey = xlDisabled
' Openen van het inputbestand
On Error Resume Next
Set WB = Application.Workbooks.Open(Input_Folder & "\" & FileArray(Array_ID), True, False, , "***", "***", , , , True)
If Err.Number <> 0 Then
Process_Files = False
Exit Function
End If
...
End Function
Moderator Edit: In future when you use code, select your code and click on the # button above to insert the code tags. Alternatively, type [code] before your code and [/code] after your code.
Bookmarks