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 

あなたはコードが何も特別なことは起こっていないシンプルで表示される場合がありますように。 メソッドを呼び出す前に、私は私のテキストファイルをエンコードするためにこれを使用しています：VBA : save a file with UTF-8 without BOM

そして、二つのことは、非常に奇妙です。まず、メソッド "CreateCodeActivity"をコーディングするためにこのメソッドを2日続けて使用しましたが、問題はありませんでした。第二に、メソッドを3回言いましょう。3回目はすべてが完璧に動作します...

問題はどこですか？

Answer 1

チップのための@Shmukkoありがとう、それは本当に私にエラーを与えるWindows Defenderです。

解決方法：[設定]に移動し、[更新&セキュリティ] - > [Windows Defender]を選択します。 [ファイル拡張子を除外する]を選択し、Visioのファイルタイプを入力します。

これだけです。