< návrat zpět

MS Excel


Téma: Nové FW restrikce blokují příkazy kódu rss

Zaslal/a 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í

Zaslat odpověď >

#055271
avatar
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 7
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 Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje