Evento Project.Open (Project)

Ocorre quando o projeto é aberto, mas antes do evento Activate.

Sintaxe

expressão. Abrir (pj)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
pj	Obrigatório	Project	O projeto que foi aberto.

Valor de retorno

Nothing

Comentários

Eventos de projeto não ocorrem quando o projeto está inserido em outro documento ou aplicativo.

Exemplo

Este exemplo adiciona o alias de email do usuário e a data atual ao campo comentários project sempre que o projeto é aberto. A colocação deste exemplo no evento Open de um projeto fornece um histórico de acesso simples para o arquivo.

Private Sub Project_Open(ByVal pj As MSProject.Project) 
    Dim Alias As String 
 
    Alias = InputBox$("Please enter your email alias: ") 
    pj.ProjectSummaryTask.AppendNotes vbCrLf & "Opened by " & Alias & _
        " on " & Date$ & "." 
End Sub

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.