Propriedade Project.IsCheckoutOSVisible (Project)

Obtém se o botão Dar Saída está visível na vista Backstage. Boolean somente leitura.

Sintaxe

expression. IsCheckoutOSVisible

expressão Uma variável que representa um objeto do Project .

Comentários

Se o projeto ativo não tiver saída dada, a vista Backstage mostra um botão Dar Saída . A propriedade IsCheckoutOSVisible é True se o botão Dar Saída estiver visível na vista Backstage; caso contrário, Falso.

Exemplo

O exemplo seguinte testa se a barra de mensagens de finalização da compra está visível; Se for o caso, oculta a barra de mensagens. No entanto, se não for dada saída do projeto, a vista backstage continua a mostrar o botão Dar Saída, pelo que o exemplo pode tentar marcar o projeto. Se o projeto tiver saída dada por si ou tiver saída dada a outra pessoa, o Project apresenta uma caixa de diálogo de erro com a mensagem "Este projeto já tem saída dada para si num computador diferente ou numa sessão do 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

Valor de propriedade

BOOL

Confira também

Objeto Project

Método CheckoutProject IsCheckoutMsgBarHideCheckoutMsgBar

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.