Document.CanCheckin (Word)

True si Microsoft Word puede proteger un documento especificado en un servidor.

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

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