Multi user login with diffrent rights

Gaith

New Member
Joined
Feb 19, 2019
Messages
3
hey!

I have a multi user workbook i would like to ask for some help. I have crated a login sheet where i can write user id and password for this workbook.
I have then crated a loop to make it look for the user if it match you get access. This is where i am stuck i cant get it to give different users different rights to see sheets.
For example want user1 to only see and use sheet 1 and user 2 to only see and use sheet 2. I am very grateful for any help


ps. My excel is in swedish so blad=Sheet

Here is my Code:

Private Sub CommandButton1_Click()
Dim Uname As String, Upwd As Variant 'sätter uname som text och Upwd som variant
Uname = UserForm1.TextBox1.Value 'användarnamn = Uname
Upwd = UserForm1.TextBox2.Value 'Lösenord = Upwd


If Uname <> "" And Upwd <> "" Then 'om det står ett värde i användarnamn och lösenord då ska
Blad6.Range("D2").Value = Uname ' Användernamnet kopieras till Login bladet
Blad6.Range("D3").Value = Upwd 'Lösenordet kopierat till Login bladet
Else
MsgBox "Användernamn och Lösenord Saknas!" 'om man inte skriver ett Anamn eller Lösen Då visas det här meddelandet
Exit Sub
End If

Dim rng As Range
Dim UnameRange As Range: Set UnameRange = Range("A2", "A10")
For Each rng In UnameRange
If Blad6.Range("D2").Value = rng.Value Then
rng.Offset(0, 1).Select
Range("F3").Value = Selection.Value
Range("F2").Value = rng.Value
End If
Next
If Range("D2").Value = Range("F2").Value And Range("D3").Value = Range("F3").Value Then
MsgBox "Du är nu inloggad"
Else
MsgBox "Ange rätt användar namn och lösenord!"
Range("F3").Value = ""
Range("F2").Value = ""
End If
TextBox1.Value = ""
TextBox2.Value = ""

End Sub
 

Excel Facts

Formula for Yesterday
Name Manager, New Name. Yesterday =TODAY()-1. OK. Then, use =YESTERDAY in any cell. Tomorrow could be =TODAY()+1.
Hi,

Before time I made a similar code but I used vba form.
In code below you can find sheet and button access.

Code:
Private Sub cmdok_Click()


    Dim Username As String
    Dim password As String
    
             If txtpassword.Value = 123 And txtusername.Value = "Operator" Then     '
                       Sheets("Routing").Visible = False
                       Sheets("Service").Visible = True
                       Sheets("Data").Visible = False
                       Sheets("Dashboard").Visible = False
                       Sheets("Completed").Visible = True
                       Sheets("Label").Visible = False
                        ActiveSheet.Shapes("Delete_order").ControlFormat.Enabled = False
                       ActiveSheet.Shapes("Soft_by_date").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Soft_by_Priority").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Move_Down").ControlFormat.Enabled = False
                       ActiveSheet.Shapes("Move_Up").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("Double_order").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("Add_data").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton3").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton5").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton6").ControlFormat.Enabled = False
                        Sheets("Completed").Shapes("CommandButton7").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton8").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton9").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton5").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton9").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton10").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton11").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton12").ControlFormat.Enabled = True
                        
                        
                        
                        Unload Me
              Else
              
                       If txtpassword.Value = "" And txtusername.Value = "Guest" Then     '
                       Sheets("Routing").Visible = False
                       Sheets("Service").Visible = False
                       Sheets("Data").Visible = False
                       Sheets("Dashboard").Visible = False
                       Sheets("Completed").Visible = True
                       Sheets("Label").Visible = False
                        ActiveSheet.Shapes("Delete_order").ControlFormat.Enabled = False
                       ActiveSheet.Shapes("Soft_by_date").ControlFormat.Enabled = False
                       ActiveSheet.Shapes("Soft_by_Priority").ControlFormat.Enabled = False
                       ActiveSheet.Shapes("Move_Down").ControlFormat.Enabled = False
                       ActiveSheet.Shapes("Move_Up").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("Double_order").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("Add_data").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton3").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton5").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton6").ControlFormat.Enabled = False
                        Sheets("Completed").Shapes("CommandButton7").ControlFormat.Enabled = False
                        Sheets("Completed").Shapes("CommandButton8").ControlFormat.Enabled = False
                        Sheets("Completed").Shapes("CommandButton9").ControlFormat.Enabled = False
                        Sheets("Completed").Shapes("CommandButton5").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton9").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton10").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton11").ControlFormat.Enabled = False
                        ActiveSheet.Shapes("CommandButton12").ControlFormat.Enabled = False
                        Unload Me
              Else
              
              
                       If txtpassword.Value = "ErEs_2000" And txtusername.Value = "Manager" Then     '
                       Sheets("Routing").Visible = True
                       Sheets("Service").Visible = True
                       Sheets("Data").Visible = True
                       Sheets("Dashboard").Visible = True
                       Sheets("Completed").Visible = True
                       Sheets("Label").Visible = True
                       ActiveSheet.Shapes("Delete_order").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Soft_by_date").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Soft_by_Priority").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Move_Down").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Move_Up").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("Double_order").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("Add_data").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton3").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton5").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton6").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton7").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton8").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton9").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton5").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton9").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton10").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton11").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton12").ControlFormat.Enabled = True
                    
                       Unload Me
                       Else
                       If txtpassword.Value = 2234 And txtusername.Value = "Admin" Then     '
                       Sheets("Routing").Visible = True
                       Sheets("Service").Visible = True
                       Sheets("Data").Visible = True
                       Sheets("Dashboard").Visible = True
                       Sheets("Completed").Visible = True
                       Sheets("Label").Visible = True
                       ActiveSheet.Shapes("Delete_order").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Soft_by_date").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Soft_by_Priority").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Move_Down").ControlFormat.Enabled = True
                       ActiveSheet.Shapes("Move_Up").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("Double_order").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("Add_data").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton3").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton5").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton6").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton7").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton8").ControlFormat.Enabled = True
                        Sheets("Completed").Shapes("CommandButton5").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton9").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton10").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton11").ControlFormat.Enabled = True
                        ActiveSheet.Shapes("CommandButton12").ControlFormat.Enabled = True
                       Unload Me
                       Else
            MsgBox "Invalid Username/Password"
         End If
         End If
         End If
        End If
End Sub

'-----------------
Private Sub UserForm_Initialize()






txtusername.List = Array("Operator", "Manager", "Guest", "Admin")




End Sub
 
Upvote 0
Thank you for the help, what dose
Code:
txtusernme.list=ary("operator","manager","guest","admin")
do?
 
Upvote 0
Hi,

In my user form for User I used ComboBox for easy selection users.


txtusernme.list=array("operator","manager","guest","admin")
 
Upvote 0

Forum statistics

Threads
1,213,517
Messages
6,114,089
Members
448,548
Latest member
harryls

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top