Workbook.CheckIn 方法 (Excel)

将工作簿从本地计算机返回给服务器，同时将本地工作簿设为只读使之无法在本地进行编辑。 调用此方法还会关闭此工作簿。

语法

表达式。CheckIn (SaveChanges、 Comments、 MakePublic)

表达 一个代表 Workbook 对象的变量。

参数

名称	必需/可选	数据类型	说明
SaveChanges	可选	Variant	为 true ，则保存更改并签入该文档。 False ，则不保存修订，并将文档恢复到签入状态。
注释	可选	Variant	用户可以为要签入的文档的修订输入签入批注（仅在 SaveChanges 等于 True 时才可应用）。
MakePublic	可选	Variant	True 允许用户在工作簿签入后发布工作簿。 这将把工作簿提交至审批过程，并最终生成发布给用户的工作簿版本，用户对该版本的工作簿拥有只读权限（仅在 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。