禁用工作簿连接

Question

我有一个 Excel 2007 .xltm 工作簿模板，其中有多个与 SQL Server 的连接。我没有将 xltm 的目录列为受信任位置，因此默认情况下外部连接被禁用。这很有效，因为我有宏（已签名且受信任），稍后可以在使用 Workbook_Open 进行一系列输入后启用这些连接。

但是，我最近将该目录添加为受信任位置，现在连接会自动刷新（无论 Connection.ODBCConnection.RefreshOnFileOpen 设置为 False..

）希望找到一个简单的命令，例如 ActiveWorkbook.DisableConnections （因为有一个 ActiveWorkbook.EnableConnections...）

我看到的只是只读ActiveWorkbook.ConnectionsDisabled...如何将其设置为 true？

Answer 1

想通了。完成文件修改后，我运行以下函数，这会阻止模板自动刷新数据。

Private Sub DisableConnections()
    Dim conn As Object
    For Each conn In ActiveWorkbook.Connections
        conn.ODBCConnection.EnableRefresh = False
    Next
End Sub

根据我的设置，我可能会将 ODBCConnection 替换为 OLEDBConnection。