Snasui Excel Forum

Code: Select all

    Dim username, password As String
    Dim sh As Worksheet
    username = TextBox1.Text
    password = TextBox2.Text
    
    If username = "PDholderadmin" And password = "Holder606561" Then
        For Each sh In Worksheets
            sh.Visible = xlSheetVisible
        Next sh
        MsgBox "Welcome to Production Holder Report For Admin"
        
        Unload Me
    
    Else
        For Each sh In Worksheets
            If sh.Index > 2 Then
                sh.Visible = xlSheetHidden
            End If
        Next sh
        MsgBox "Username or Password Error!!!!!"
        ActiveWorkbook.Close
    
    End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        ThisWorkbook.Close False
    End If
End Sub