< návrat zpět
MS Excel
Téma: Nové FW restrikce blokují příkazy kódu
Zaslal/a Milan-158 1.8.2023 15:32
Ahoj, mám dost velký problém. Na firemní síti se od minulého týdne projevily restrikce, které blokují některé příkazy volané z VBA. Např. tento kód
Sub test_003()
Dim strPrikaz As String
strPrikaz = "Ping 10.161.10.152"
Call Shell("cmd.exe /s /k " & strPrikaz, vbNormalFocus)
End Sub
se mimo firemní síť provede, ale v naší síti to zablokuje Firewall s hláškou: "Zabezpečení windows zablokovalo tuto akci protože to tak nastavil váš správce sítě. Obraťte se na helphesk". Ten Ping je jenom triviální příklad, ve skutečnosti spouštím externí program s předanými parametry. Pokud si otevřu CMD ručně a vložím tam příslušný string, tak se příkaz v pohodě vykoná i ve firemní síti.
Potřeboval bych nouzově pro úplně neznalé uživatele alespoň otevřít kódem prázdné okno CMD, ale nějak se nemůžu dogooglit jak na to.
Stres, konec měsíce, prosím o nakopnutí
Milan-158(2.8.2023 17:23)#055271 Tak jsem si na helpdesku vyjednal odklad restrikcí o 4 týdny. Ale pak už žádný příkaz typu Shell nebo cmd z VBA nebude možné spustit
Mezitím na něco snad přijdu...
Věděl by někdo jakým příkazem lze z VBA vytisknout PDF dokument, když vím jeho plnou cestu? Otestuju, zdali by to fungovalo pod restrikcemi. Doteď jsem to dělal takhle, ale to už neprojde:
Sub Tisk_PDF_0(StrPDFFile As String)
Dim StrProgram As String
StrProgram = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe "
If StrPDFFile Like "*.pdf" Then
Shell """" & StrProgram & """/n /h /t""" & StrPDFFile & """"
End If
'Zavři PDF
TaskKill ("AcroRd32.exe")
End Subcitovat