Project.CheckoutProject method (Project)

Checkt ein geöffnetes Projekt aus, das sich derzeit im schreibgeschützten Modus befindet.

Syntax

Ausdruck. CheckoutProject

Ausdruck Eine Variable, die ein Project-Objekt darstellt.

Rückgabewert

Nothing

Hinweise

Wenn sich das aktive Projekt in Project Professional im schreibgeschützten Modus befindet, checkt CheckoutProject.method das Projekt aus, sodass es sich im Lese-/Schreibmodus zur Bearbeitung befindet. Wenn das aktive Projekt bereits ausgecheckt ist, zeigt Project ein Dialogfeld mit der Meldung "Dieses Projekt ist bereits auf einem anderen Computer oder einer anderen Project Web App-Sitzung ausgecheckt" an.

Beispiel

Im folgenden Beispiel wird ermittelt, ob ein geöffnetes Projekt ein Enterprise-Projekt ist und ausgecheckt ist. Wenn das Projekt nicht ausgecheckt ist, versucht das Beispiel, das Projekt auszuchecken. Wenn das Projekt bereits ausgecheckt ist, zeigt Project ein Dialogfeld mit der Fehlermeldung "Dieses Projekt ist bereits auf einem anderen Computer oder einer anderen Project Web App-Sitzung ausgecheckt" an. Wenn das Projekt von einem anderen Benutzer ausgecheckt ist, zeigt Project ein Dialogfeld mit der Meldung an: "Zum Auschecken muss DOMAIN\UserName das Projekt in seiner Sitzung schließen oder sich an Ihren Administrator wenden, um das Projekt einzuchecken."

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

Siehe auch

Checkin-Methodedes Project-Objekts

Application.IsCheckedOutApplication.ProjectCheckOut

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.