Método Document.CheckIn (Visio)

Devuelve un documento de un equipo local a un equipo de Microsoft SharePoint Server.

Sintaxis

expresión. CheckIn (SaveChanges, Comments, MakePublic)

Expresión Variable que representa un objeto Document .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
SaveChanges	Opcional	Boolean	Su valor es True (un valor distinto de cero) para guardar los cambios realizados en el documento antes de protegerlo; es False (0) para proteger el documento sin que se guarden los cambios. El valor predeterminado es True.
Comments	Opcional	Variant	Comentarios que se van a guardar junto con esta revisión del documento (se aplica únicamente si el valor de SaveChanges es True).
MakePublic	Opcional	Boolean	Su valor es True para publicar el documento después de protegerlo. De este modo, se somete el documento al proceso de aprobación o, si no hay rutina de aprobación para el documento, se crea una versión pública que está disponible para los lectores de la carpeta (se aplica únicamente si el valor de SaveChanges es True); si su valor es False, el documento sólo estará disponible para su visualización privada. El valor predeterminado es Falso.

Valor devuelto

Nothing

Comentarios

Para proteger un archivo, debe guardarse en una biblioteca de documentos en un equipo que use Microsoft SharePoint Server o Microsoft SharePoint Foundation.

Después de protegerse el documento mediante el método CheckIn, el documento se cierra. Este comportamiento dista del comportamiento de la interfaz de usuario: cuando se protege un documento en la interfaz de usuario, el documento se cierra y se vuelve a abrir como de sólo lectura.

Ejemplo:

En este ejemplo, se comprueba el servidor para ver si el documento especificado puede protegerse. Si se puede hacerlo, se guarda y se cierra el documento y, a continuación, se protege el documento en el servidor.

Sub CheckDocIn(varDocCheckIn As Variant) 
  
    If Documents.Item(varDocCheckIn).CanCheckin = True Then  
        Documents.Item(varDocCheckIn).CheckIn  
        MsgBox varDocCheckIn & " has been checked in."  
    Else  
        MsgBox "This file cannot be checked in " _  
            & "at this time. Please try again later."  
    End If   
  
End Sub

Para llamar a la subrutina CheckDocIn 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 DocIn()  
 
    Call CheckDocIn _  
        (varDocCheckIn:="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.