Добрый день!
Возможно подойдет такой вариант, что не даст запускаться процедуре, срабатывающей на открытие файла
Application.EnableEvents = False
Excel.Workbooks.Open App.Path & "\Main.xls"
Application.EnableEvents = True
А вот вопрос "текущий документ содержит макросы, хотите ли вы их отключить?" это из разряда настроек безопасности Excel, тут вроде программно не удастся отключить.

А вот из недр Инета выудил, но не пробовал
Считать данные из закрытой книги
Private Function GetValue(path, file, sheet, ref)
Dim arg As String
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

Sub TestGetValue()
p = "c:\"
f = "workbook1.xls"
s = "Sheet1"
a = "A1"
MsgBox GetValue(p, f, s, a)
End Sub

С уважением, Сергей Густокашин. Тольятти, Комсофт. ICQ 75307217