Propriété Project.HasPassword (Project)

Cette propriété a la valeur True si un projet est protégé par un mot de passe. Boolean (en lecture seule).

Syntaxe

expression. HasPassword

Expression Variable qui représente un objet Project .

Remarques

Remarque

Project peut ouvrir des fichiers projet stockés dans une base de données ODBC qui ont un mot de passe, mais ne peut pas enregistrer les fichiers dans une base de données.

Exemple

L’exemple suivant montre comment afficher une liste des projets ouverts qui sont protégés par un mot de passe.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.