Как получить сообщение об ошибке при открытии файла через VBA в Outlook

Question

Я скопировал и адаптировал некоторый код VBA для написания макроса, открывающего указанный файл c, см. Ниже:

Public Sub open_workload_spreadsheet()

    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xExcelRange As Excel.Range

    xExcelFile = "R:\Workload Meeting Log.xlsx"

    Set xExcelApp = CreateObject("Excel.Application")
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)

    xExcelApp.Visible = True

End Sub

Обычно, когда вы открываете файл, а кто-то другой открывает его, выскакивает сообщение об ошибке, сообщающее, что кто-то еще его открыл. Однако при использовании приведенного выше кода такое сообщение об ошибке не появляется, а просто открывается копия только для чтения.

Есть ли способ получить код, чтобы открыть файл и отобразить сообщение перед тем, как полностью его открыть, если на нем кто-то есть?