根据Pankaj的建议，我做了以下的事情（虽然我不认为这是非常优雅的，但仍然认为一定有更好的方法）。
我为工作簿创建了一个新宏。

Sub RefreshData()
'
' RefreshData Macro
'
Application.ScreenUpdating = False
Sheets("sheetname").Unprotect Password:="password"
ActiveWorkbook.Connections("connection name").Refresh
Sheets("sheetname").Protect _
Password:="password", _
UserInterfaceOnly:=True, _
AllowFiltering:=True, _
AllowSorting:=True, _
AllowUsingPivotTables:=True
End Sub

然后在VBA工程中打开ThisWorkbook，并编辑Workbook Open例程。

Private Sub Workbook_Open()
RefreshData
End Sub

有关保护选项的更多信息，请参阅此处：http://datapigtechnologies.com/blog/index.php/worksheet-protection-best-practice/
它的工作原理是：每次打开工作簿并刷新数据时，工作表都会被锁定。UserInterfaceOnly属性对刷新数据的命令没有影响（尽管它应该对其他宏事件有影响）。您仍然需要专门解锁电子表格，执行数据刷新，然后再次锁定工作表。
我在另一个工作表上添加了一个表单按钮，并将其链接到我的 RefreshData 宏，以便可以手动刷新数据，而工作表被锁定。
我在连接属性中做的另一件事是在后台刷新时删除刻度。

一个简单的方法是添加一个自定义按钮并编写一个宏，当用户按下工具栏自定义按钮时，它后面的宏将取消对工作表的保护并刷新外部数据，然后保护工作表（显然screenupdate设置为false）

我建议将外部查询添加到另一个不受保护的工作表上，但是您可以隐藏它。受保护工作表上的数据将简单地引用未受保护的工作表。

我添加了数据连接到一些未受保护的工作表，然后隐藏工作表。不幸的是，即使工作簿的结构受到保护，连接也不起作用。
我不能相信我可能需要释放我的代码无保护，必须有一个工业实力的解决方案