Project.HasPassword プロパティ (Project)

True プロジェクトにパスワードが設定されている場合です。 読み取り専用の Boolean です。

構文

式。 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 のサポートおよびフィードバックを参照してください。