Visio：DOS共享冲突（错误1532）

Question

所以我现在真的很困惑。突然之间我的代码得到了错误“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

因此，您可能会看到代码很简单，没有什么特别之处。 在调用方法之前，我使用它来编码我的文本文件：VBA : save a file with UTF-8 without BOM

有两件事情很奇怪。首先，我连续两天使用这种方法编写方法“CreateCodeActivity”，我没有任何问题。第二，如果我打电话给这个方法让我们说三次，第三次一切都很完美......

哪里可能是问题？

Answer 1

谢谢你@Shmukko的提示，它真的是Windows防守者给我的错误。

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

那就是它。