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

Question

所以我现在真的很困惑。出乎意料的是，我的代码得到了错误 "DOS Sharing violation"。

很奇怪，它说正在尝试保存我的文档，但我只想打开它。

这是我的代码：

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"进行编码，我没有任何问题。其次，如果我调用该方法三次，第三次一切正常...

问题可能出在哪里？

Answer 1

谢谢@Shmukko 的提示，确实是 windows 防御者给我错误。

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

就是这样。

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

Visio: DOS Sharing violation (Error 1532)

vba

windows

ms-office

visio