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 支援與意見反應。