專案。檢查項目 (專案)

檢查一個目前處於唯讀模式的開放專案。

語法

expression。 CheckoutProject

詞 一個代表 專案 物件的變數。

傳回值

Nothing

註解

如果 Project 專業版中的活動專案處於唯讀模式，CheckoutProject.method 會將專案檢查為讀寫模式以便編輯。 如果該活躍專案已經被勾出，專案會顯示一個對話框，顯示「此專案已在另一台電腦或 Project Web App 會話中結出給您。」

範例

以下範例判斷一個未完成專案是否屬於企業專案並已結出。如果專案沒有被借出，範例會嘗試檢查該專案。 如果專案已經對你已結出，專案會顯示一個錯誤訊息的對話框：「此專案已在另一台電腦或 Project Web App 會話中已結出給您。」若專案被其他使用者借出，專案會顯示一個對話框，訊息為「要檢查，DOMAIN\UserName 必須在其工作階段關閉專案或聯絡您的管理員以確認專案。」

Sub CheckOutOpenEnterpriseProjects()
    Dim openProjects As Projects
    Dim proj As Project
    
    Set openProjects = Application.Projects
    
    On Error Resume Next
    
    For Each proj In openProjects
        If Application.IsCheckedOut(proj.Name) Then
            If proj.Type = pjProjectTypeEnterpriseCheckedOut Then
                Debug.Print "'" & proj.Name & "'" & " is already checked out."
            ElseIf proj.Type = pjProjectTypeNonEnterprise Then
                Debug.Print "'" & proj.Name & "'" & " is not an enterprise project."
            End If
        Else
            ' Check out the project whether it is active or not.
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

另請參閱

專案物件檢查方法

Application.IsCheckedOutApplication.ProjectCheckOut

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。