VBA quitar permisos de restricción de acceso a documentos office

Tengo unos documentos office (Word y Excel básicamente) en una biblioteca de SharePoint. Estos documentos tienen activada la restricción de permisos para acceso:

Lo que hago es:

1) Me bajo los documentos de la bibioteca de SharePoint a mi disco duro local:

myURL = "https://rjgroup.sjd-ofi.reigjofre.com/IT/Docs_IT-QA_CopyControl/PNA008.docx"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")

WinHttpReq.Open "GET", myURL, False, "MiUser", "MiPassword"
WinHttpReq.Send

'WinHttpReq.Open "GET", myURL, False
'WinHttpReq.Send "username=MiUser&password=MiPassword" & "&login=login"

myURL = WinHttpReq.responseBody
    If WinHttpReq.Status = 200 Then
        Set ostream = CreateObject("ADODB.Stream")
        ostream.Open
        Set Doc = ActiveDocument
        MsgBox Doc.ProtectionType
        If Doc.ProtectionType <> wdNoProtection Then Doc.Unprotect
        ostream.Type = 1
        ostream.Write WinHttpReq.responseBody
        ostream.SaveToFile ("C:\Users\unlock\ok_PNA008.docx"), 2
        ostream.Close
    End If

2)Una vez en mi disco duro, entiendo que debería haber algún objeto VBA me permita recorrerlos, abrirlos y aplicar un método para quitarles dicha restricción de permisos de acceso, pero no se por donde tirar!

Cualquier ayuda o pista será bienvenida!

Añade tu respuesta

Haz clic para o