Свойство Project.HasPassword (Project)

Значение True , если у проекта есть пароль. Только для чтения, Boolean.

Синтаксис

выражение. HasPassword

Выражение Переменная, представляющая объект Project .

Замечания

Примечание.

Project может открывать файлы проекта, хранящиеся в базе данных ODBC с паролем, но не могут сохранять файлы в базе данных.

Пример

В следующем примере отображается список открытых проектов с паролями.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.