vba - 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 Defender 给我错误。

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

就是这样。