VBA-Script shell .. .CopyHere wird von Defender blockiert

Hallo,

Win10 Pro 64Bit, 1803, Office 2016

Seit einigen Wochen wird bei aktivem Defender (Viren- & Bedrohungsschutz - Echtzeitschutz EIN) das Ausführen von .CopyHere erheblich blockiert.

Wie kann da abhilfe geschaffen werden.

Gruß

rawa


Hier der VBA-Beispielcode:

Sub TestZIP()
Dim objShell As Object
Dim sSFile As Variant
Dim sDFile As Variant
Dim dTime As Double

sDFile = ThisWorkbook.Path & "\"
sSFile = ThisWorkbook.Path & "\Test2.xlsx.zip\docProps"

Set objShell = CreateObject("Shell.Application")

dTime = Timer

Call objShell.Namespace(sDFile).CopyHere(objShell.Namespace(sSFile).Items)
Debug.Print Timer - dTime

Call Kill(sDFile & "core.xml")
Call Kill(sDFile & "app.xml")

' Times Defender activ
' 9,56640625
' 3,056640625
' 5,0546875
' 3,8984375
' 5,14453125
' 4,76953125

' Times Defender deactivate
' 0,3515625
' 0,376953125
' 0,35546875
' 0,3828125
' 0,38671875
' 0,416015625
End Sub