CheckIn 方法

       

在服务器上进行工作副本的签入(发布或没有发布)或撤销签出。可读写。

expression.CheckIn(SaveChanges, Comments, MakePublic)

expression   必需。该表达式返回“应用于”列表中的对象之一。

SaveChanges   Variant 类型,可选。如果保存文档更改并签入文档,则该值为 True。如果没有保存新的修订就将文档返回到签入的状态,则该值为 False

Comments   Variant 类型,可选。用户可以为要签入的文档的修订输入签入批注(仅在 SaveChangesTrue 时应用)。

MakePublic   Variant 类型,可选。允许用户在文档签入后进行文档的发布。这将提交一个允许进程的文档,并最终生成发布给用户的文档的版本,该版本中用户对工作区有只读权限(仅在 SaveChangesTrue 时应用)。

示例

本示例检查服务器以查看是否可以签入指定的工作簿。如果可以,本示例将保存并关闭工作簿,而且将其签回服务器。

Sub CheckInOut(strWkbCheckIn As String)

    ' Determine if workbook can be checked in.
    If Workbooks(strWkbCheckIn).CanCheckIn = True Then
        Workbooks(strWkbCheckIn).CheckIn
        MsgBox strWkbCheckIn & " has been checked in."
    Else
        MsgBox "This file cannot be checked in " & _
            "at this time.  Please try again later."
    End If

End Sub