Macro para abrir word con contraseña de apertura

Hola, tengo una situación muy parecida a ésta: http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/2525438/abrir-word-desde-un-commamd-button-de-excel

Pero mi caso es el siguiente:

Esta macro crea un documento nuevo en el cual se copia todo el contenido del formulario de word que tiene clave y después se completan los campos con los datos ingresados en un useform.

Aquí debajo dejo el código, el cual me sirve, pero tengo que ingresar manualmente la clave para que se siga ejecutando.

Lo que necesito es que la macro lo haga todo automáticamente sin tener que intervenir desde el teclado, y tampoco que la macro me "simule" el ingreso de teclas.

Espero haberme explicado bien!

Sub PORTADA() 'Completar archivo portada con los datos volcados en el excel
patharch = ThisWorkbook.Path & "\PORTADA.doc"
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add , Template:=patharch, NewTemplate:=False, DocumentType:=0
objWord.Visible = True

'Acá es donde creo que me falta algo para que me abra mi archivo el cual tiene clave de apertura la cual poseo.

objWord.ActiveDocument.FormFields("cuit").TextInput.EditType _
Type:=wdRegular, Default:=TextBox53

objWord.ActiveDocument.FormFields("APELLIDO").TextInput.EditType _
Type:=wdRegular, Default:=TextBox50
objWord.ActiveDocument.FormFields("NOMBRE").TextInput.EditType _
Type:=wdRegular, Default:=TextBox51
objWord.ActiveDocument.FormFields("SUCURSAL").TextInput.EditType _
Type:=wdRegular, Default:=TextBox1
objWord.ActiveDocument.FormFields("CODIGOSUCURSAL").TextInput.EditType _
Type:=wdRegular, Default:=TextBox2
objWord.Run "Macro1"
Set objWord = Nothing
End Sub