Automatische OK-knop

[antwerpen]

Hallo,

Bij het openen van bepaalde mappen krijg ik onderstaande foutmelding, deze link verwijst naar de standaardlocatie voor gebruikerssjablonen in Word, maar na het wegklikken van deze melding opent wel gewoon het dialoogvenster van deze map, dus ik heb wel rechten tot deze map.
Nu is het zo dat organisatiebreed deze storende melding bij iedereen verschijnt, erg hinderlijk en ook wel verwarrend. Is het mogelijk in VBA om automatisch de OK-knop van deze melding weg te klikken, zodat de gebruikers niet deze melding te zien krijgen, maar direct het dialoogvenster?

Bij voorbaat dank,
Marco

 

[Jan van Asseldonk]

Hoe wil je deze mappen openen?
Probeer eens ze als "alleen lezen" te openen.
Ik denk dat je de melding dan niet krijgt.
Plaats anders het stukje code waarmee je opent hier eens.

 

[antwerpen]

Hoe wil je deze mappen openen?
Probeer eens ze als "alleen lezen" te openen.
Ik denk dat je de melding dan niet krijgt.
Plaats anders het stukje code waarmee je opent hier eens.

Hieronder de code, de foutmelding verschijnt bij "bclicked = .Display". Het gekke is dat wanneer ik "*.*" verander in "*.doc", dan gaat het goed, maar we maken gebruik van meerdere extensies, dus het is wel belangrijk dat de mensen alle bestanden zien:

rubriek = System.PrivateProfileString(ipad, "geg", "rubriek")
locatie = Options.DefaultFilePath(wdWorkgroupTemplatesPath)
huidigemap = CurDir()

ChangeFileOpenDirectory (locatie + "\" + rubriek)
Set haalfile = Dialogs(wdDialogFileOpen)
With Dialogs(wdDialogFileOpen)
.Name = "*.*"
bclicked = .Display
resultaat = .Name
If bclicked = 0 Then 'annuleer

 

[Axel Hagg]

Foutmelding

Ik zou het eens proberen voor elk soort document dat jullie gebruiken. Misschien ontdek je bij welk soort de fout optreedt en mag dat document niet door iedereen worden geopend.