Excel VBA从MySQL刷新

我有这个代码来刷新我的连接从Excel到MySQL，我做了这样一个有人试图刷新一台不在networking中的电脑，它会抛出一个味精，说服务器连接丢失..

它只做刷新的一部分，但是当我使用没有连接到networking的个人电脑的excel文件，它不显示我的自定义消息。

Sub refreshall() Dim answer As Integer Dim wSheet As Worksheet On Error GoTo Handler answer = MsgBox("Refresh All Sheets At Once?", vbYesNo + vbQuestion, "Refresh All") If answer = vbYes Then Application.DisplayAlerts = False Application.ScreenUpdating = False For Each wSheet In Worksheets wSheet.Unprotect Password:="Secret" Next wSheet ActiveWorkbook.refreshall For Each wSheet In Worksheets wSheet.Protect Password:="123", UserInterfaceOnly:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ AllowUsingPivotTables:=True Next wSheet Application.DisplayAlerts = True Application.ScreenUpdating = True Exit Sub Else Exit Sub End If Exit Sub Handler: For Each wSheet In Worksheets wSheet.Protect Password:="123", UserInterfaceOnly:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ AllowUsingPivotTables:=True Next wSheet MsgBox "Server Connection Lost...", vbOKOnly + vbCritical, "Warning" Exit Sub End Sub