次の方法で共有

Project.IsCheckoutOSVisible プロパティ (Project)

  • [アーティクル]

Backstage ビューに [チェックアウト ] ボタンが表示されるかどうかを取得します。 読み取り専用の Boolean です。

構文

式。 IsCheckoutOSVisible

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

注釈

アクティブなプロジェクトがチェックアウトされていない場合、[Backstage] ビューに [チェックアウト ] ボタンが表示されます。 [チェックアウト] ボタンが Backstage ビューに表示されている場合、IsCheckoutOSVisible プロパティは True です。それ以外の場合は False。

例

次の例では、チェックアウト メッセージ バーが表示されているかどうかをテストします。その場合、メッセージ バーは非表示になります。 ただし、プロジェクトがチェックアウトされていない場合でも、バックステージ ビューに [チェックアウト] ボタンが表示されるため、この例ではプロジェクトをチェックアウトできます。 プロジェクトが自分によってチェックアウトされた場合、または他のユーザーにチェックアウトされている場合は、"このプロジェクトは既に別のコンピューターまたはセッションProject Web Appでチェックアウトされています" というメッセージが表示されたエラー ダイアログ ボックスが表示されます。

Sub TestBackstageCheckout()
    ' Hide the checkout message bar.
    If ActiveProject.IsCheckoutMsgBarVisible Then
        ActiveProject.HideCheckoutMsgBar
    End If
    
    ' If the Backstage Check Out button is visible, then the
    ' project is not checked out.
    If ActiveProject.IsCheckoutOSVisible Then
        ActiveProject.CheckoutProject
        Debug.Print "Attempted to check out: '" & ActiveProject.Name & "'"
    Else
        Debug.Print "'" & ActiveProject.Name & "' is already checked out."
    End If
End Sub

プロパティ値

BOOL

関連項目

プロジェクト オブジェクト

IsCheckoutMsgBarVisibleHideCheckoutMsgBar メソッドCheckoutProject メソッド

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

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