Snasui Excel Forum

Code: Select all

 

Private Sub Workbook_Open ()
           UserForm2.Show
End Sub

 

Code: Select all

Private Sub CommandButton1_Click()
    Dim username As String, password As String
    
    username = TextBox1.Text
    password = TextBox2.Text

    With ThisWorkbook
        If username = "user1" And password = "n2pvfm" Then
            .Sheets("SlipUser1").Visible = True
        ElseIf username = "admin0" And password = "en6szdrf" Then
            'Sheets("Password").Visible = True
            .Sheets("Employee").Visible = True
            .Sheets("ComboBox").Visible = True
            .Sheets("Data").Visible = True
            .Sheets("Retrieve").Visible = True
            .Sheets("TemplateUser").Visible = True
            'Sheets("SlipAll").Visible = True
            .Sheets("SlipUser1").Visible = True
            .Sheets("SlipUser2").Visible = True
            .Sheets("SlipUser3").Visible = True
        ElseIf username = "admin1" And password = "wsrfz37p" Then
            .Sheets("Employee").Visible = True
            .Sheets("Data").Visible = True
            .Sheets("Retrieve").Visible = True
            .Sheets("TemplateUser").Visible = True
            'Sheets("SlipAll").Visible = True
            .Sheets("SlipUser1").Visible = True
            .Sheets("SlipUser2").Visible = True
            .Sheets("SlipUser3").Visible = True
        Else
            MsgBox "Username or Password is Incorrect!!!"
        End If
    End With
End Sub