ActiveWorkbook.ConnectionsDisabled给出了编译错误

Question

我已编写此代码以启用连接：

Sub EnableConnection()

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

End Sub

它工作得很漂亮。但是，写反向时：

Sub disableConnection()

ActiveWorkbook.ConnectionsDisabled

End Sub

我收到编译错误：

  

无效使用Property

任何人都可以帮我解决这个问题吗？

提前谢谢。

Answer 1

代码

ActiveWorkbook.ConnectionsDisabled

是属性，而不是函数。这意味着它有一个值，但它本身不能做任何事情。它只是告诉连接的状态。要查看我的意思，请转到VBA的即时窗口并写入?ActiveWorkbook.ConnectionsDisabled 根据状态，你会得到真或假。