CheckIn (Método)

Importante

En este artículo es máquina traducido, vea la exención de responsabilidad. Encontrará la versión en inglés de este artículo aquí para su referencia.

Devuelve el documento de un equipo local al servidor y configura el documento local como de sólo lectura, de manera que no se pueda modificar localmente.

Sintaxis

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

expresión Required. A variable that represents a Document object.

Parámetros

Name	Necesario/Opcional	Tipo de datos	Descripción (Description)
SaveChanges	Opcional	Booleano	True guarda el documento en la ubicación del servidor. El valor predeterminado es True.
MakePublic	Opcional	Booleano	El valor True permite que el usuario publique el documento después de haberlo protegido. Esto envía el documento al proceso de aprobación, que puede tener como resultado final que se publique una versión del documento para los usuarios como de sólo lectura (sólo se aplica si SaveChangeses igual a True).
Comments	Opcional	Variante	Comentarios para la revisión del documento que se está protegiendo (se aplica sólo si SaveChanges es igual a True).
VersionType	Opcional	Variante	Especifica información sobre versiones para el documento.

Observaciones

Para beneficiarse de las funciones de colaboración integradas en Microsoft Word, los documentos deben almacenarse en Microsoft SharePoint Portal Server.

Ejemplo

En este ejemplo, se comprueba en el servidor si se puede proteger el documento especificado. En caso afirmativo, se guarda y se cierra el documento, y se vuelve a proteger en el servidor.

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

Ejemplo

Para llamar a la subrutina CheckInOut anterior, utilice la subrutina siguiente y reemplace el nombre del archivo "https://servername/workspace/report.doc" por el de un archivo real ubicado en el servidor mencionado anteriormente en la sección Comentarios.

Sub CheckDocInOut()
    Call CheckInOut (docCheckIn:="https://servername/workspace/report.doc")
End Sub

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.