Project.HasPassword 屬性 (Project)

True 是表示 如果專案已有密碼。 唯讀的 Boolean。

語法

expression。 HasPassword

表達 代表 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 支援與意見反應。