Excel Vba 函数在重新打开时停止工作

Question

我试图设置一个 vba 函数，当超链接链接到不存在的文件时，该函数会更改超链接的颜色。为此，我在标准模块上获得了以下代码。

Function FileExist(path As String) As Boolean
    If Dir(path) <> vbNullString Then FileExist = True
End Function

然后我使用该函数作为我想要的单元格的条件格式并且它按预期工作。然后我将该文件保存为启用宏的工作簿并关闭该程序。

当我重新打开它时，它停止工作了。该函数对每个输入都返回 false。我让它重新工作的唯一方法是转到“另存为”，然后将其再次保存为启用宏，然后刷新整个内容。

我验证了信任中心，甚至设置为“启用所有宏”，但重新打开文件后它仍然不起作用，除非我执行之前提到的步骤。

我不知道问题可能出在哪里，因此希望得到任何帮助。提前致谢。

Answer 1

解决了这个问题。问题是我用该函数验证了本地路径。当我打开文件时，它找不到本地路径。但是当我保存它时，它能够恢复文件目录并且该函数再次开始工作。当我设置远程路径时，它一直工作。

谢谢你的关注