VBA bypass Unreadable Content Warning

[jscranton]

I have a line of code that sets a workbook variable to each workbook in a folder and then runs some additional code over each workbook.

Occassionally I will get an error (Run time 1004) on the line below. If I try to open the workbook throwing the error it almost always has an unreadable content warning when I open it manually. I have turned off Display Alerts but is there something else I need to do to bypass this error?

        Application.DisplayAlerts = False
        Set wb = Workbooks.Open(fileName:=myPath, UpdateLinks:=False)

 

[LockeGarmin]

You'll need to use error handling in your code. The example below is me making a guess at how your method is structured.

Sub EditWorkbook(myPath As String)

Dim wb As Workbook


  Application.DisplayAlerts = False
  
  On Error GoTo WorkbookOpenFailure
  Set wb = Workbooks.Open(Filename:=myPath, UpdateLinks:=False)
  
  Application.DisplayAlerts = True
  
  On Error GoTo OtherError
  'The rest of the code for editing the workbook
  
Exit Sub


WorkbookOpenFailure:
  MsgBox "The Workbook didn't open probably due to unreadable content. :( :(", vbExclamation, "Workbook Open Failure"
  Application.DisplayAlerts = True


Exit Sub


OtherError:
  MsgBox "Something else went wrong that I should probably give you more information about. #MacroTrolling", vbExclamation, "Other Error"
  
End Sub