Make change password and log in as Manager possible

[Belleke]

Hello,
Included file
I am trying to create a login form, but I have 2 problems
First: If you log in in as user you should be able to change password if the password is correct and
second : if you log in as manager every sheet should be vissible but both do not work.
Password for the first name = pw1 for the second name pw2 etc
For the manager , the Username is Manager and the password is geheim.
Who can help?

 

[vletm]

1) Known user can change password. What is a challenge?
2) Manager see all sheets. What is a challenge?
3) Unknown user makes challenge .. test with 'YES' and anypassword
check ValidatePW's 1st select, isn't iCounta max 3?
Need more details ...

 

[Belleke]

Hello vletm,
Thank you for your response.
For this one

Manager see all sheets. What is a challenge?

This piece of code does not work

If Me.cboUser.Value = "Manager" And Me.tbxPW = Blad13.Cells(2, 1).Value Then
        Me.cmdManage.Visible = True
        Exit Sub

For this one:

Known user can change password. What is a challenge?

This does not work

ElseIf cl.Offset(0, 1).Value = Me.tbxPW.Text Then
            iLevel = cl.Offset(0, 2).Value
            MsgBox "Welkom  " & Blad13.Range("users").Cells(lRw, 1).Value, vbOKOnly + _
            vbInformation, "Alles is ok."
            Me.cmdNew.Visible = True
            bOK = True

For the rest I don't really understand.

 

[vletm]

I tried to understand ...
and I modified something
There is one new [Close]-button for close that 'login'-form and so on ...
Test this version and tell me what do still miss or so?

 

[Belleke]

Hello vletm, thank you, thank you!!
That is allmost what I want, just the sheet (13, verberg ) should be visible also when the manager logs in.
You said you where a teacher, you still are, A great one!!

 

[vletm]

Oh .. just only one thing ... Okay!
Now, the Manager would see Blad13 too.
... and 'Splash' ... if activate that Yellow box then it will open LogIn-form too.
... and someone should protect many formulas there ... maybe not me?
... and if that file asks 'password' then it's Your username with small letters
... maybe something else too ...
> Ideas? ... Questions?

 

[Belleke]

Hello vletm,
yes, that's it. Sorry, I was not there this week-end
You still are a great teacher
Thank you, Thank you.

 

[Belleke]

Just one question? What is the Vba password?

 

[vletm]

as I tried to write before:
if that file asks 'password' then it's Your username with small letters

 

[Belleke]

Does not work

 

[vletm]

I just test ... it works!
1) Open that file - LOG IN as Manager
2) Open Macros
3) Click that VBAProject ...
4) Write Your CHANDOO-username with ONLY small letters!
5) You can see/edit Macros ...

 

[Belleke]

Thank you my friend