Geopend bestand detecteren

[janus1janus1]

LS
Zou iemand mij antwoord kunnen geven op de volgende vraag.
Bij het opstarten van een bestand (excel file met auto_open maro) moet er gekeken worden of het bestand met de naam "Planning" reeds geopend is.
Als het geopend is moet de procedure afgebroken worden omdat "planning"eerst afgesloten moet worden.
Ik heb onderstaande methode gebruikt maar vind het niet prettig dat het via een foutprocedure loopt.
Heeft iemand een andere oplossing?


sub auto_open
on error goto foutafhandeling
planning="waar"
workbooks("Planning").activate
msgbox("sluit eerst planning af alvorens dit programma te activeren")
end
line1: 'vervolg programma
'programma code
exit sub
foutafhandeling:
if planning "="waar"then
planning = ""
goto line1
end if
msgbox("onbekende fout")
end sub

 

[LucB]

janus.

Neem de Module1 uit de bijlage op in je bestand.

Je auto-Open wordt dan:

Sub Autpen()
Call BestandOpenJaNee
End Sub

 

[janus1janus1]

Beste Luc,

Het werkt perfect, bedankt.

Tevens weer een goede les want tot op heden heb ik nog geen gebruik gemaakt van "Function" ondanks het feit dat ik toch complexe codes geschreven heb.
vg
Janus