Vba Visio:DOS共享冲突（错误1532）

所以我现在真的很困惑。突然，我的代码给了我一个错误“DOS共享冲突”

这很奇怪，因为它说，这是试图保存我的文档，但我只想打开它

这是我的代码：

Public Sub ReadActivity()
Dim vsoDocument As Visio.Document
Dim vsoPage As Visio.Page


Set vsoDocument = Documents.Open("C:\Users\Philip\Dropbox\Test\Aktivität0.vsdx")
Set vsoPage = vsoDocument.Pages(1)

SvgExport (ActiveDocument.path & "\files_and_images\" & Left(ActiveDocument.name, (InStrRev(ActiveDocument.name, ".", -1, vbTextCompare) - 1)) & ".svg") 
CreateCodeActivity

vsoDocument.Close
End Sub

因此，正如您可能看到的，代码很简单，没有发生任何特殊情况。 在调用该方法之前，我正在使用此方法对文本文件进行编码：

有两件事很奇怪。首先，我连续两天使用这个方法来编码方法“CreateCodeActivity”，我没有遇到任何问题。第二，如果我调用这个方法，比如说，调用三次，在第三次调用时，一切都很完美

---

哪里可能有问题？

谢谢@Shmukko的提示，是windows defender给了我这个错误

对于Windows 10，解决方案是：转到设置并选择更新和安全->Windows Defender。选择“排除文件扩展名”，然后输入Visio的文件类型

---

就这样。

你用卡巴斯基抗病毒药物吗？没有，但说得对。也许是windows防御程序。。。我去看看