kblinhu28
Membros-
Total de itens
1 -
Registro em
-
Última visita
Sobre kblinhu28
kblinhu28's Achievements
0
Reputação
-
kblinhu28 se registrou na comunidade
-
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 ?