Application.IsCheckedOut property (Project)

Ruft ab, ob ein geöffnetes Projekt vom Benutzer aus Project Web App ausgecheckt wird. Schreibgeschützter boolescher Wert.

Syntax

Ausdruck. IsCheckedOut

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
ProjectName Erforderlich String Der Name eines Projekts, das in Project Professional geöffnet ist.

HinwBemerkungeneise

Für ein Projekt, das in Project Professional geöffnet ist, ist der Wert der IsCheckedOut-EigenschaftTrue, wenn das Projekt vom aktuellen Benutzer ausgecheckt ist. Wenn das angegebene Projekt nicht vom aktuellen Benutzer ausgecheckt ist (d. h. das Projekt ist geöffnet, aber in einem schreibgeschützten Modus) oder von einem anderen Benutzer ausgecheckt wird, ist der IsCheckedOut-WertFalse.

Die IsCheckedOut-Eigenschaft gibt in den folgenden Fällen den Laufzeitfehler 1004 zurück, "Unerwarteter Fehler mit der -Methode aufgetreten":

  • Das angegebene Projekt ist in Project Professional nicht geöffnet.

  • Das angegebene Projekt ist eine lokale Projektdatei wie Project1.mpp.

Beispiel

Im folgenden Beispiel wird ermittelt, ob ein geöffnetes Projekt ein Enterprise-Projekt ist und ausgecheckt ist. Wenn das Projekt nicht ausgecheckt ist, wird im Beispiel versucht, das Projekt auszuchecken. 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
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

Eigenschaftswert

BOOL

Siehe auch

Application ObjectProject.Type Property

Project.CheckoutProject-Methode

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.