Método Documents.CheckOut (Visio)

Marca el documento especificado como desprotegido y asigna privilegios de edición al actual usuario.

Sintaxis

expresión. CheckOut (FileName)

Expresión Variable que representa un objeto Documents .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Necesario	String	Ruta de acceso al servidor y nombre del archivo.

Valor devuelto

Nothing

Comentarios

Para desproteger un archivo, debe estar almacenado en una biblioteca de documentos en un equipo con Microsoft SharePoint Server o Microsoft SharePoint Foundation.

A diferencia del comportamiento en la interfaz de usuario, el método CheckOut no abre el documento. Utilice el método Open para abrir el documento en la ventana de dibujo después de desprotegerlo.

Ejemplo:

En este ejemplo, se comprueba si se puede desproteger un documento. Si se puede hacerlo, se desprotege el documento; en caso contrario, se devuelve un mensaje en el que se indica que no se puede desproteger el documento.

 
Sub CheckDocOut(strDocCheckOut As String)  
    If Documents.CanCheckOut(strDocCheckOut) = True Then  
        Documents.CheckOut strDocCheckOut  
    Else  
        MsgBox "You are unable to check out this document " _  
            & "at this time."  
    End If    
End Sub

Para llamar a la subrutina CheckDocOut anterior, use la siguiente subrutina y reemplace servername/workspace/drawing.vdx por la ruta de acceso y el nombre de un archivo real ubicado en un equipo con Microsoft SharePoint Server.

 
Sub DocOut()  
    Call CheckDocOut _  
        (strDocCheckOut:="https://servername/workspace/drawing.vdx ")  
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.