Project.HasPassword Property (Project)

True, Wenn ein Projekt ein Kennwort besitzt. Schreibgeschützter boolescher Wert.

Syntax

Ausdruck. HasPassword

Ausdruck Eine Variable, die ein Project-Objekt darstellt.

Hinweise

Hinweis

[!HINWEIS] Project kann in einer ODBC-Datenbank gespeicherte Projektdateien öffnen, die ein Kennwort, aber keine Dateien zu einer Datenbank speichern.

Beispiel

Im folgenden Beispiel wird eine Liste der geöffneten Projekte angezeigt, die ein Kennwort besitzen.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.