Project () 的 Application.ProjectCheckOut 方法

檢查開啟的專案是否為使用中專案。

語法

expression。 ProjectCheckOut (名稱)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Name	選用	字串	項目的名稱

傳回值

布林值

註解

開啟的項目必須為使用中， ProjectCheckOut 方法才能運作。 如果專案已取出給您，Project 會顯示一個對話方塊，其中包含錯誤訊息「「此專案已在不同的電腦或 Project Web App 會話中取出給您」。如果專案由其他使用者取出，則錯誤訊息為「若要簽出，DOMAIN\UserName 必須在其會話中關閉專案，或連絡您的系統管理員以簽入專案」。

範例

下列範例會嘗試取出所有以唯讀方式開啟的專案。

Sub TestProjectCheckOut()
    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 only if it is the active project.
            proj.Activate
            Application.ProjectCheckOut
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

另請參閱

Application 物件Project.Checkin 方法

IsCheckedOut 屬性專案.CheckoutProject 方法

支援和意見反應

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