在服务器上进行工作副本的签入(发布或没有发布)或撤销签出。可读写。
expression.CheckIn(SaveChanges, Comments, MakePublic)
expression 必需。该表达式返回“应用于”列表中的对象之一。
SaveChanges Variant 类型,可选。如果保存文档更改并签入文档,则该值为 True。如果没有保存新的修订就将文档返回到签入的状态,则该值为 False。
Comments Variant 类型,可选。用户可以为要签入的文档的修订输入签入批注(仅在 SaveChanges 为 True 时应用)。
MakePublic Variant 类型,可选。允许用户在文档签入后进行文档的发布。这将提交一个允许进程的文档,并最终生成发布给用户的文档的版本,该版本中用户对工作区有只读权限(仅在 SaveChanges 为 True 时应用)。
本示例检查服务器以查看是否可以签入指定的工作簿。如果可以,本示例将保存并关闭工作簿,而且将其签回服务器。
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