Jelszava VBscript? Részletek Alul

Olyan Vbscriptet szeretnék írni ami akkor indul ha x mappát megnyitok,kér egy jelszót ha jó akkor hagy dolgozni ha nem akkor bezárja a mappát.

Ebből megvan a jelszavas rész:

jelszo=inputbox("Add meg a jelszót:")

ujra=vbYesNo

if jelszo="jelszó" then

msgbox "Dolgozhatsz"

else

do

kerdes=msgbox ("Rossz jelszó.Megpróbálod újra?", ujra)

if kerdes=VBYes then

jelszo=inputbox("Add meg a jelszót:")

else

msgbox "Viszlát"

WScript.Quit

end if

loop until jelszo="jelszó"

msgbox "Dolgozhatsz"

end if

A többi részben(mappánál megnyitás és kilépésben) kérnék segítséget.