Proteger documento de Word con Macro desde Excel
Publicado por Roberto (1 intervención) el 10/11/2020 17:09:07
Buen dia.
Tengo una macro en EXCEl en la cual pretendo proteger un documento de word despues de editarlo y despues guardarlo. He intentado y no me da error pero al abrir el documento guardado no está protegindo. Quiero que la proteccion sea para que solo me deje modificar los campos de tipo formulario.
Este codigo me edita correctamente el folio y lo guarda el archivo correctamente, pero no lo deja protegido.
Qué estoy haciendo mal?
Ayuda por favor.
Tengo una macro en EXCEl en la cual pretendo proteger un documento de word despues de editarlo y despues guardarlo. He intentado y no me da error pero al abrir el documento guardado no está protegindo. Quiero que la proteccion sea para que solo me deje modificar los campos de tipo formulario.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = False
ObjWord.Documents.Add Template:=Ruta, NewTemplate:=False, DocumentType:=0
With ObjWord.Selection.Find
.Text = "**FOLIO**"
.Replacement.Text = ***Aqui pongo un numero de folio***
.Execute Replace:=2
End With
ObjWord.ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="soporte"
ObjWord.ActiveDocument.SaveAs "C:\Users\.....\MI DOCUMENTO.docx"
Este codigo me edita correctamente el folio y lo guarda el archivo correctamente, pero no lo deja protegido.
Qué estoy haciendo mal?
Ayuda por favor.
Valora esta pregunta
0