ActiveWorkbook.ConnectionsDisabled正在给编译错误

我已经写了这个代码来启用连接：

Sub EnableConnection() ActiveWorkbook.EnableConnections answer = MsgBox("Connection enabled") End Sub 

它的作品非常漂亮。 但是，当写反向：

 Sub disableConnection() ActiveWorkbook.ConnectionsDisabled End Sub 

我得到编译错误：

无效使用财产

。

谁能帮我解决这个问题吗？

先谢谢你。

Answer 1

代码

 ActiveWorkbook.ConnectionsDisabled 

是一个财产，而不是一个function。 这意味着它有一个价值，但它本身无法做任何事情。 它只是告诉连接的状态。 为了明白我的意思，转到VBA的直接窗口并写入?ActiveWorkbook.ConnectionsDisabled您将得到真或假，取决于状态。