How to Create a Login Window to Protect Excel Workbook and recorde login

[AT BABU]

Hi folks,

Thank you for you support.

I have search in google i find below from this sit(https://www.datanumen.com/blogs/create-login-window-protect-excel-workbook/)

but it not suitable for me. Because of have 30 users and this code very long and user login not recode so. Please help me this Marco


Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
If TextBox2.Value = "" Then
MsgBox "Please Input the User Name and the Password"
Else
MsgBox "Please Input the User Name"
End If
ElseIf TextBox1.Value = "Admin" Then
If TextBox2.Value = "" Then
MsgBox "Please Input the Password"
ElseIf TextBox2.Value = "123" Then
Me.Hide: Application.Visible = True
Else
MsgBox "Please Input the right User Name and the right Password"
End If
Else
If TextBox2.Value = "" Then
MsgBox "Please Input the Password"
Else
MsgBox "Please Input the right User Name and the right Password"
End If
End If
End Sub


Private Sub CommandButton2_Click()
ThisWorkbook.Application.Quit
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Application.Quit
End Sub

 

[Hjemmet]

https://www.datanumen.com/blogs/set-different-privileges-different-users-excel-file/

From same Site you Have Linket too

Private Sub CommandButton1_Click()
  Dim objTargetWorksheet As Worksheet

  If (TextBox1.Value = "Admin" And TextBox2.Value = "123") _
    Or (TextBox1.Value = "Support" And TextBox2.Value = "234") _
    Or (TextBox1.Value = "Super" And TextBox2.Value = "345") Then
    Me.Hide: Application.Visible = True
    For Each objTargetWorksheet In ActiveWorkbook.Worksheets
      If objTargetWorksheet.Name = TextBox1.Value Then
        objTargetWorksheet.Unprotect Password:=Test
      Else
        objTargetWorksheet.Protect Password:=Test, DrawingObjects:=True, Contents:=True, Scenarios:=True
      End If
    Next
  Else
    MsgBox "Please input the right user name and the right password"
  End If
End Sub
Private Sub CommandButton2_Click()
  ThisWorkbook.Application.Quit
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  ThisWorkbook.Application.Quit
End Sub