MACRO para proteger documento de Word para formulario.

Hola, tengo el siguiente código que al rellenar los datos los coloca en un archivo de word, y quisiera que al finalizar, el archivo de word quede protegido para completar formulario unicamente, es decir para solo poder rellenar los campos.

Sub PORTADA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
patharch = ThisWorkbook.Path & "\PORTADA.doc"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0

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.Activate
Set objWord = Nothing

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Espero que me puedan ayudar, y gracias de antemano.