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: сохраните файл с UTF-8 без спецификации

И две вещи очень странные. Прежде всего, я использовал этот метод два дня подряд для кодирования метода "CreateCodeActivity", и у меня не было никаких проблем. А во-вторых, если я вызову метод, скажем, три раза, в третий раз все работает отлично...

Где может быть проблема?

Answer 1

Спасибо @Shmukko за подсказку, это действительно защитник Windows, который дает мне ошибку.

Для Windows 10 решение: перейдите в "Настройки" и выберите "Обновление и безопасность" -> "Защитник Windows". Выберите "Исключить расширение файла" и введите тип файла для Visio.

Вот и все.