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!