script para poner password en formulario de acceso

Hola a todos,
El lunes 19 de junio Emilio me respondió una pregunta que hice en el foro
donde pedía asesoramiento para abrir automáticamente un archivo de excel
todos los días a la madrugada y ejecute un proceso de actualización. La
ayuda de Emilio me resultó muy útil, pero estoy estancada en un punto que no
sé cómo resolver. El script de Emilio es:
Dim xlApp,_
strArchivo
strArchivo="C:\Documents and Settings\davruj\Escritorio\pruebas omnia\Copia
de prueba.xls"
Set xlApp= CreateObject("Excel.Application")
xlApp.Visible=True
xlApp.Workbooks.Open strArchivo
xlApp.run "cambiar"
xlApp.Activeworkbook.Save
xlApp.Activeworkbook.Close
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp=Nothing
Funciona de maravillas. El problema es que en el archivo original se abre un
userform de vba que pide la password de acceso.
Al script anterior le faltaría el código para que la password ingrese
automáticamente y no manualmente.
Probé los siguientes códigos y no funcionaron:
xlApp.Workbooks.Open strArchivo, password="diana", WriteResPassword="diana"

xlApp.Workbooks.Open strArchivo, password:="diana",
WriteResPassword:="diana"

xlApp.Workbooks.Open strArchivo, password="diana"

xlApp.Workbooks.Open strArchivo, password:="diana"

xlApp.Workbooks.Open strArchivo, , , ,"diana" Este código sí abre archivos
con password de Microsoft excel pero no abre archivos con password de
userforms (se abre el userform para poner la password manual).
Podrían ayudarme con el código para que se ponga la password en el
formulario automáticamente y se abra el archivo?
Muchísimas gracias!!!
Diana