次の方法で共有

Application.IsCheckedOut プロパティ (Project)

  • [アーティクル]

開いているプロジェクトがユーザーによってProject Web Appからチェックアウトされるかどうかを取得します。 読み取り専用の Boolean です。

構文

expression. IsCheckedOut

式Application オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
ProjectName 必須 String Project Professionalで開いているプロジェクトの名前。

注釈

Project Professionalで開いているプロジェクトの場合、プロジェクトが現在のユーザーによってチェックアウトされている場合、IsCheckedOut プロパティの値は True です。 指定したプロジェクトが現在のユーザーによってチェックアウトされていない場合 (つまり、プロジェクトは開いているが読み取り専用モード)、または別のユーザーによってチェックアウトされている場合、 IsCheckedOut 値は False です。

IsCheckedOut プロパティは、次の場合に実行時エラー 1004 "メソッドで予期しないエラーが発生しました" を返します。

  • 指定したプロジェクトがProject Professionalで開いていません。

  • 指定したプロジェクトは、Project1.mpp などのローカル プロジェクト ファイルです。

例

次の例では、開いているプロジェクトがエンタープライズ プロジェクトであり、チェックアウトされているかどうかを判断します。プロジェクトがチェックアウトされていない場合、この例ではプロジェクトのチェックアウトを試みます。 プロジェクトが別のユーザーによってチェックアウトされた場合、Project には"チェックアウトするには、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
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

プロパティ値

BOOL

関連項目

Application ObjectProject.Type プロパティ

Project.CheckoutProject メソッド

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。