Tela de Login com Níveis de Acesso

[kblinhu28]

Bom dia queridos(as),

Estou com uma pequena dificuldade em desenvolver uma tela de Login no VBA. Existe alguns erros que estão ocorrendo ao longo do projeto. 

 

Segue código utilizado:

 

Private Sub login_Click()

        If TextBox1 = "" Then
            
            MsgBox "Preencha o campo usuário", vbExclamation, "Error"
            
            Me.TextBox1.SetFocus
            
        Exit Sub
        
        
        ElseIf TextBox1 = "bruno" And TextBox2 = "2786" Then
            
        
            
            Sheets("b2w").Visible = True
            Sheets("opcoes").Visible = True
            Sheets("estoque").Visible = True
            UserForm1.Hide
            
            
            
            
        ElseIf TextBox1 = "felipe" And TextBox2 = "1234" Then
        
            Sheets("b2w").Visible = True
            Sheets("opcoes").Visible = True
            Sheets("estoque").Visible = True
            UserForm1.Hide
        
        ElseIf TextBox1 = "larissa" And TextBox2 = "4321" Then
            Sheets("b2w").Visible = True
            Sheets("opcoes").Visible = False
            Sheets("estoque").Visible = True
            UserForm1.Hide
        
        Else: MsgBox ("Acess Denied, Login our Password Wrong, Please try again")
        
            TextBox1.Text = Empty
            TextBox2.Text = Empty
            
            Me.TextBox1.SetFocus
            
      End If
                  
End Sub

Private Sub cancelar_Click()

ActiveWorkbook.Save

Application.Quit

End Sub

Private Sub TextBox1_Change()

End Sub

 

"Esse código, é do UseForm".

 

Agora segue o código que é utilizado para abrir o Form assim que o usuário abrir a planilha.:

 

Private Sub Workbook_Open()

        UserForm1.Show
        
        Sheets("b2w").Visible = False
        Sheets("opcoes").Visible = False
        Sheets("estoque").Visible = False
        Sheets("inicio").Visible = True
        
        
End Sub

 

 

O que está ocorrendo é: Quando digito o usuário e senha "bruno" "2786" - a planilha abre normalmente, entretanto as planilhas ficam todas não visíveis. Com exceção da planilha "inicio". Mas no código está descrito que o nível de acesso para o Bruno, é verdadeiro para todas as planilhas.

 

Nos outros usuários ocorre a mesma coisa. Alguém consegue compreender onde está meu erro ?

 

 

[Felipe Pieralli]

Você tentou usar o F8 (passo-a-passo) para ver se o código esta passando pelo if do Bruno?