Automatic OK

[hasanlianar]

Hi,

In Excel I created several tables over Power Query by connecting to web sites.
I have set tales Refresh every 30 minutes. But sometimes the web sites do not respond and message box appears about it.
Can I configure Excel to automatically click on OK button so that it disappears immediately or do not pop up at all?

I have read several posts on this, but could not find appropriate solution.

Thank you,
Anar

 

[BarryL]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.DisplayAlerts = True
.EnableEvents = True
End With
End Sub

Private Sub Workbook_Open()
With Application
.DisplayAlerts = False
.EnableEvents = False
End With
End Sub

try the below in the ThisWorkbook object in VBA. make sure its in the ThisWorkbook object

 

[hasanlianar]

BarryL, thank you. But this code will work only for workbook Close and Open events. My work book stays open the whole day and sometimes, as I stated above, message box pops up due to that Excel could not connect to web sites.
Is it possible to use similar code for Table Update/refresh event, so that after refresh if something pops up Excel clicks on OK button automatically?

 

[hasanlianar]

Automatic OK | Chandoo.org Excel Forums - Become Awesome in Excel