Visio: DOS-Sharing-Verletzung (Fehler 1532)

Question

So bin ich jetzt wirklich verwirrt. Aus heiterem Himmel bekommt mein Code den Fehler "DOS Sharing Violation".

Es ist komisch, weil er sagt, dass mein Dokument zu speichern versucht, aber ich will einfach nur um es zu öffnen.

Das ist mein Code:

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 

So wie Sie den Code ist einfach nichts Besonderes los ist sehen könnte. Vor dem Aufruf der Methode verwende ich dies für die Codierung meiner Textdatei: VBA : save a file with UTF-8 without BOM

Und zwei Dinge sind sehr seltsam. Zuerst habe ich diese Methode zwei Tage hintereinander benutzt, um die Methode "CreateCodeActivity" zu programmieren und ich hatte keine Probleme. Und zweitens, wenn ich die Methode nenne, sagen wir dreimal, beim dritten Mal funktioniert alles perfekt ...

Wo könnte das Problem liegen?

Answer 1

Vielen Dank @Shmukko für den Tipp, es ist wirklich der Windows Defender, der mir den Fehler gibt.

Für Windows 10 lautet die Lösung: Gehen Sie zu Einstellungen und wählen Sie Update & Sicherheit -> Windows Defender. Wählen Sie Eine Dateierweiterung ausschließen und geben Sie den Dateityp für Visio ein.

Das ist es.