expression.CheckIn(SaveChanges, Comments, MakePublic)
expression Required. An expression that returns one of the objects in the Applies To list.
SaveChanges Optional Variant. True saves changes and checks in the document. False returns the document to a checked-in status without saving revision.
Comments Optional Variant. Allows the user to enter check-in comments for the revision of the workbook being checked in (applies only if SaveChanges equals True).
MakePublic Optional Variant. True allows the user to publish the workbook after it has been checked in. This submits the workbook for the approval process, which can eventually result in a version of the workbook being published to users with read-only rights to the workbook (applies only if SaveChanges equals True).
Example
This example checks the server to see if the specified workbook can be checked in. If it can, the code saves and closes the workbook and checks it back in to the server.
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