Hallo forumleden,
Ik gebruik volgende code om een Excel Listbox te vullen met PDF files uit een folder:
Dit heeft altijd gewerkt tot het bedrijf zijn veiligheidspolicy heeft gewijzigd en nu wordt er niet meer toegelaten dat deze macro uitgevoerd wordt.
Alle andere macro’s die binnen het werkblad zelf werken worden wel toegelaten en werken zonder problemen.
Wij werken met Windows 10 en Office 365 64 bit.
Is er een andere manier om deze ListBox te vullen of een andere idee om dit probleem aan te pakken?
Alvast bedankt.
Marc
Ik gebruik volgende code om een Excel Listbox te vullen met PDF files uit een folder:
Code:
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Top = Application.Top + 410
Me.Left = Application.Left + Application.Width - Me.Width - 110
ListBox1.List = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Zaak\PDF\Test\*.pdf""* /b /a-d /o-d /tc").stdout.readall, vbCrLf), ".")
ListBox1.ListIndex = 0 ' select first Item in listbox
End Sub
Dit heeft altijd gewerkt tot het bedrijf zijn veiligheidspolicy heeft gewijzigd en nu wordt er niet meer toegelaten dat deze macro uitgevoerd wordt.
Alle andere macro’s die binnen het werkblad zelf werken worden wel toegelaten en werken zonder problemen.
Wij werken met Windows 10 en Office 365 64 bit.
Is er een andere manier om deze ListBox te vullen of een andere idee om dit probleem aan te pakken?
Alvast bedankt.
Marc