Application.ProjectCheckOut メソッド (Project)

アクティブなプロジェクトの場合は、開いているプロジェクトをチェックアウトします。

構文

式。 ProjectCheckOut(名前)

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

パラメーター

名前	必須 / オプション	データ型	説明
名前	省略可能	String	プロジェクトの名前

戻り値

ブール型 (Boolean)

注釈

ProjectCheckOut メソッドを機能させるには、開いているプロジェクトがアクティブである必要があります。 プロジェクトが既にチェックアウトされている場合、"このプロジェクトは既に別のコンピューターまたは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 ObjectProject.Checkin メソッド

IsCheckedOut プロパティProject.CheckoutProject メソッド

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

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