Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
With Sheets("login")
If .form1.TextBox1 = "admin" & .form1.TextBox2 = "admin" Then
Worksheets("sheet1").Visible = False
Worksheets("sheet2").Visible = False
Worksheets("sheet3").Visible = False
Else: MsgBox ("Retry login again")
End If
End With
End Sub

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "login" Then
            sh.Visible = xlSheetVeryHidden
        End If
    Next sh
    ThisWorkbook.Close True
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Dim sh1 As Worksheet
    For Each sh1 In Worksheets
        With Sheets("login")
                If .form1.TextBox1 = "admin" & .form1.TextBox2 = "admin" Then
                     For Each sh In Worksheets
                         If sh1.Name <> "login" Then
                            sh1.Visible = xlSheetVisible
                         End If
                    Next sh1
                Else: MsgBox ("Retry login again")
                 End If
        End With
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Dim sh As Worksheet
    With Sheets("login")
        If .TextBox1 = "admin" And .TextBox2 = "admin" Then
            For Each sh In Worksheets
                 If sh.Name <> "login" Then
                    sh.Visible = xlSheetVisible
                 End If
            Next sh
        Else
            MsgBox ("Retry login again")
        End If
    End With
End Sub