VBA - Word dokumentum megnyitás jelszóval

VBA - Word dokumentum megnyitás jelszóval
2016-01-05T13:58:56+01:00
2016-01-07T09:39:27+01:00
2022-12-03T04:15:40+01:00
nevada
Sziasztok!

Az alábbi kis Excel (2010)-es vba val próbálok megnyitni egy jelszóval védett Word dokumentumot (természetesen tudom jelszót).
A probléma az, hogy nagyon bizonytalanul működik, hol simán megnyitja, hol pedig megnyitja ugyan, de leteszi a tálcára és ott villog.
Azt szeretném elérni, hogy a megnyitás után nem kerüljön a tálcára, hanem aktív legyen a megnyitott word dokumentum.

Sub ShowWord() Dim wordApp If MsgBox("Megnyitod a jelentést?", vbQuestion + vbYesNo, "Adatvédelem") = vbYes Then Set wordApp = CreateObject("word.Application") wordApp.Visible = True DoEvents wordApp.documents.Open Filename:="C:\TESZT\TESZT.DOC", PasswordDocument:="tesztpass" DoEvents Application.Wait (Now + TimeValue("0:00:04")) wordApp.Application.Activate DoEvents End If End Sub
Az alábbival mindig tökéletesen megnyitja, de itt nem lehet megadni a megnyitási jelszót. Vagy mégis meg lehet adni valahogy?

Call Shell("WINWORD.EXE C:\TESZT\TESZT.DOC ", 1)
Mutasd a teljes hozzászólást!
Egy "a" betűs megnyitási jelszóval védett .doc fájlt nekem így sikerült megnyitnom:

Call Shell("WINWORD.EXE C:\Downloads\TESZT.DOC ", 1): Application.Wait Now + TimeValue("00:00:01"): SendKeys "a{enter}"
A várakozást lehet csak az én gépem igényli, túl gyors? :))
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd