Document.Unprotect (Word)

Quita la protección del documento especificado.

Si el documento no está protegido, este método genera un error.

Unprotect (Password)

Password: Cadena de contraseña que se usa para proteger el documento.

If ActiveDocument.ProtectionType <> wdNoProtection Then 
 ActiveDocument.Unprotect Password:=strPassword 
End If