Propiedad Project.HasPassword (Project)

True si un proyecto tiene una contraseña. Boolean de solo lectura.

Sintaxis

expresión. HasPassword

expresión Variable que representa un objeto Project .

Observaciones

Nota:

[!NOTA] Project puede abrir archivos de proyecto almacenados en una base de datos ODBC que tienen una contraseña, pero no pueden guardar archivos en una base de datos.

Ejemplo

En el ejemplo siguiente se muestra una lista de proyectos abiertos que tienen contraseña.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.