ActiveWorkbook.ConnectionsDisabled 给出编译错误

Question

我写了这段代码来启用连接：

Sub EnableConnection()

ActiveWorkbook.EnableConnections
answer = MsgBox("Connection enabled")

End Sub

而且效果很好。但是，写反的时候：

Sub disableConnection()

ActiveWorkbook.ConnectionsDisabled

End Sub

我得到编译错误：

invalid use of Property

.

谁能帮我解决这个问题？

提前致谢。

Answer 1

代码

ActiveWorkbook.ConnectionsDisabled

是一个属性，不是函数。这意味着它有一个值，但它不能自己做任何事情。它只是告诉连接的状态。要明白我的意思，请转到 VBA 的直接 window 并写入 ?ActiveWorkbook.ConnectionsDisabled 根据状态，您会得到 true 或 false。

ActiveWorkbook.ConnectionsDisabled is giving compile error