Sikkerhed i Access: Skifte adgangskode

Jeg kan se at jeg skal bruge noget Workspace, User og Group....men hvordan...?

Sub ChangePasswords()  Dim ws As Workspace, usr As User  ' Add passwords to the Admin, OrdersAdmin, and OrdersOwner  ' user accounts.  Set ws = DBEngine.Workspaces(0)  ws.Users("Admin").NewPassword "", "AdminPwd"  ws.Users("OrdersAdmin").NewPassword "", "OrdAdminPwd"  ws.Users("OrdersOwner").NewPassword "", "OrdOwnerPwd"  ' Create a user account, specifying a PID and a password with  ' the CreateUser method.  Set usr = ws.CreateUser("Tim Smith", "ilmj2d", "MyPwd")  ws.Users.Append usr  ' Create a user account, specifying a password with the  ' Password property.  Set usr = ws.CreateUser("Robert King")  usr.PID = "tdi3tcm"  usr.Password = "NewUserPwd"  ws.Users.Append usrEnd Sub

Har fundet et eksempel i hjælpefilen, hvis det kan bruges lukker jeg spørgsmålet igen.

Nå, Terry var godt nok hurtig, kigger lige på det, Terry, og melder tilbage...

Take a look at this link too

and the link :o)
http://www.microsoft.com/accessdev/articles/bapp97/chapters/ba14_2.htm

I think your example would work GREAT, if it wasn't for this message:

Run-Time error '3033':
Du har ikke de nødvendige tilladelser til at bruge objektet "sys". Få systemadministrator eller den person, der oprettede dette objekt, til at give dig de nødvendige tilladelser.

Debug sets the cursor at this line:
ws.Users(CurrentUser).NewPassword "", "test"

I've deleted some of the lines from your example, here's the code I'm using:

Public Function ChangePassword()
  Dim ws As Workspace
  Dim usr As User
  Set ws = DBEngine.Workspaces(0)
  ws.Users(CurrentUser).NewPassword "", "test"
End Function

What I want is for the CurrentUser to be able to change his password....how?

just out for lunch, will get back soon.

ok

This is what I got so far:

Public Function ChangePassword()
  Dim usr As User
  Dim strPassword As String
  Set usr = DBEngine(0).Users(CurrentUser)
  On Error Resume Next
  usr.NewPassword "", ""
  strPassword = InputBox("You Must Enter a Password Before Proceeding", "Enter Password")
  If strPassword = "" Then
    DoCmd.Quit
  Else
    usr.NewPassword "", strPassword
  End If
End Function

Private Sub Kommandoknap1_Click()
  ChangePassword
End Sub

But it doesn't work, atleast the password isn't change or anything!

Måske den kan hjælpe dig:

Function SetDBPassword(strDBPath As String, _

                strOldPwd As String, _

                strNewPwd As String)

  ' This procedure sets a new password or changes an existing

  ' password.

  Dim dbsDB    As DAO.Database

  Dim strOpenPwd  As String

  ' Create connection string by using current password.

  strOpenPwd = ";pwd=" & strOldPwd



  ' Open database for exclusive access by using current password. To

  ' get exclusive access, you must set the Options argument to True.

  Set dbsDB = OpenDatabase(Name:=strDBPath, _

                    Options:=True, _

                    ReadOnly:=False, _

                    Connect:=strOpenPwd)

  ' Set or change password.

  With dbsDB

    .NewPassword strOldPwd, strNewPwd

    .Close

  End With

  Set dbsDB = Nothing

End Function
Eller kig:
http://www.microsoft.com/enable/download/products/office/opg/ch18.txt

Dim ws As Workspace, usr As User 
Set ws = DBEngine.Workspaces(0) 
ws.Users(CurrentUser).NewPassword "OldPassword", "NewPassword"

Hi again!
I've tried using your example, terry, but I keep getting this message every time:

Run-Time error '3033':
Du har ikke de nødvendige tilladelser til at bruge objektet "sys". Få systemadministrator eller den person, der oprettede dette objekt, til at give dig de nødvendige tilladelser.

And it doesn't matter which account I'm using to perform the "Change Password" operation! Been searching the net for a solution to the 3033 error code, without luck.....

Well I dont know what to suggest! If you are using Access security then this should work!

You obvioulsy need to change OldPassword and NewPassword with the correct passwords.

When Access starts are you getting a small dialog where you have to enter the user and password?

yes

Is it because of my VBA references?

My VBA references are:
Visual Basic for Applications
Microsoft Access 9.0 Object Library
OLE Automation
Microsoft ActiveX Data Objects 2.1 Library
Microsoft DAO 3.6 Object Library

Which version of Access are you using?

2000

I am sure that method I gave should work in 2000 also. I wouldnt have thought that ONLY admin can change users passwords, this is NOT logical.

I will have a look around and IF I find something will get back, otherwise I dont know what to suggest!

Can you tell me why THIS code works:

Sub ChangePasswords()
  Dim ws As Workspace, usr As User
  Set ws = DBEngine.Workspaces(0)
  ws.Users(CurrentUser).NewPassword "oldpassword", "newpassword"
End Sub

And THIS doesn't:

Sub ChangePasswords()
  Dim ws As Workspace, usr As User
  Set ws = DBEngine.Workspaces(0)
  OldPassword = Tekst2.Value
  NewPassword = InputBox("You Must Enter a Password Before Proceeding", "Enter Password")
  ws.Users(CurrentUser).NewPassword "OldPassword", "NewPassword"
End Sub

This is the code that works, but from what you're saying, I can't change the password of a user without "entering" the users current password, right? So, how do I retrieve that password?

Public Function test()
  Dim ws As Workspace, usr As User
  Set ws = DBEngine.Workspaces(0)
  NewPassword = Tekst2.Value
  ws.Users(CurrentUser).NewPassword "OldPassword", NewPassword
End Function

To change a password will need THREE pieces of data.

User Name
The current password (OldPassWord)
The new password (NewPassWord)

So IF you change your code to THIS then it SHOULD work

Sub ChangePasswords()
  Dim ws As Workspace, usr As User
  Set ws = DBEngine.Workspaces(0)
  OldPassword = Tekst2.Value
  NewPassword = InputBox("You Must Enter a Password Before Proceeding", "Enter Password")
  ws.Users(CurrentUser).NewPassword OldPassword, NewPassword
End Sub

Yes, and it does, but I'd like for the currentuser to enter ONLY the new password, isn't there a way to retrieve his/her password using VBA?

I've tried with this code, but get an error: "invalid use of property", in this line:  OldPassword = ws.Users(CurrentUser).Password


  Dim ws As Workspace, usr As User
  Set ws = DBEngine.Workspaces(0)
  NewPassword = Tekst2.Value
  OldPassword = ws.Users(CurrentUser).Password
  ws.Users(CurrentUser).NewPassword OldPassword, NewPassword

Thisi wasnt the original question?
I will see what I can do!

I know, also raised the points to "compensate".....

;)

am am looking

Hi again!

I dont think I am going to be able to help you in finding the password of the current user!
I have looked around and dont seem to be able to find anything which will give me this information!

It is quite normal to get the user to enter the OLD and NEW passwords when changing passwords. This makes sure that it is actually the correct user and not someone who gets access to the application for a short period of time. I am sure you cab see the implications with this.

I've also searched the entire net(!) for info on how to retrieve a users password using VBA, don't think it can be done.....the points are yours, thanks for helping.

Yes, I can see the implications...........the only problem is, that if the user doesn't enter his/her old password, I can't change the password....and if they enter the "wrong" old password, I get an error, but I guess I can suppress it and just show them a dialog that says something like: "an error has occured, please check your passwords and try again"

you can check which error number you get using the following when you enter the wrong password

err.number

then once you have this number you have can ctach this error and display a message saying they have entered the wrong password.

Thanks :o)

Well, if I use err.number, I get '3033'! :(
(which doesn't necessarily mean that the user has entered the wrong password, but ........what the heck...)

if you try to change the password using the WRONG password then the number youget SHOULD be because you used the wrong password

The message is something like
"You don't have the necessary permissions to use the 'UserName' object.  Have your system administrator or the person who created this object establish the appropriate permissions for you."

Yes, that's the one, terry. Thank you soooo much.