Propriedade Project.HasPassword (Project)

True se um projeto tem uma senha. Boolean somente leitura.

Sintaxe

expression. HasPassword

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

Comentários

Observação

[!OBSERVAçãO] Project pode abrir arquivos do projeto armazenados em um banco de dados ODBC que possui uma senha, mas não podem salvar arquivos em um banco de dados.

Exemplo

O exemplo a seguir exibe uma lista de projetos abertos que têm senha.

Sub ListProjectsWithPasswords() 
    Dim P As Project ' Project object used in For Each loop 
    Dim NameList As String ' Names of projects with passwords 
 
    ' Check each open project for passwords. 
    For Each P in Application.Projects 
        ' If a project has a password, add its name to the list. 
        If P.HasPassword Then 
            NameList = NameList & P.Name & vbCrLf 
        End If 
    Next P 
 
    ' Display information about projects with passwords. 
    If NameList = "" Then 
        MsgBox("No open projects have passwords.") 
    Else 
        MsgBox("The following open projects have passwords: " & vbCrLf & vbCrLf & NameList) 
    End If 
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.