◆概要
　この資料は、Microsoft Accessでパスワードの追加と変更について記載しています。


UserオブジェクトのNewPasswordメソッドトを使うと、既存のユーザー アカウントのパスワードを追加、変更、または削除できます。また、UserオブジェクトのCreateUserメソッドを使ってユーザー アカウントを作成するときに、またはUserコレクションに追加する前にUserオブジェクトのPasswordプロパティを設定して、ユーザー アカウントにパスワードを設定することもできます。


たとえば、次のプロシージャでは、Admin,OrdersAdmin、およびOrdersOwnerの各ユーザーアカウントにパスワードを設定します。また、新規にユーザー アカウントを２つ作成し、パスワードを設定します。

Sub ChangePasswords()
    
    Dim ws As Workspace
    Dim usr As user
    
    ' Admin、OrdersAdmin、OrdersOwner の各アカウントに
    ' パスワードを設定します。
    Set ws = DBEngine.Workspaces(0)
    ws.Users("Admin").NewPassword "", "AdminPwd"
    ws.Users("OrdersAdmin").NewPassword "", "OrdAdminPwd"
    ws.Users("OrdersOwner").NewPassword "", "OrdOwnerPwd"
    
    ' CreateUser メソッドを使ってユーザー アカウントを作成し、
    ' PIDおよびパスワードを設定します。
    Set usr = ws.CreateUser("Tim Smith", "ilmj2d", "MyPwd")
    ws.Users.Append usr
    
    ' ユーザー アカウントを作成し、
    ' Password プロパティを使ってパスワードを設定します。
    Set usr = ws.CreateUser("Robert King")
    usr.PID = "tdi3tcm"
    usr.Password = "NewUserPwd"
    ws.Users.Append usr
    
End Sub