Propriedade Project.IsCheckoutOSVisible (Project)
Obtém se o botão Check Out está visível na exibição Backstage. Boolean somente leitura.
Sintaxe
expression. IsCheckoutOSVisible
Expressão Uma variável que representa um objeto Project .
Comentários
Se o projeto ativo não for verificado, o modo de exibição De bastidores mostrará um botão Check Out . A propriedade IsCheckoutOSVisible é True se o botão Check Out estiver visível na exibição Backstage; caso contrário, False.
Exemplo
O exemplo a seguir testa se a barra de mensagens de checkout está visível; Se assim for, ele oculta a barra de mensagens. No entanto, se o projeto não for verificado, o modo de exibição de bastidores ainda mostrará o botão Check Out, para que o exemplo possa tentar verificar o projeto. Se o projeto for verificado por você ou feito check-out para outra pessoa, o Project mostrará uma caixa de diálogo de erro com a mensagem: "Este projeto já está verificado em um computador diferente ou 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
Método IsCheckoutMsgBarVisibleHideCheckoutMsgBar MétodoCheckoutProject
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.