sou bem iniciante em VBA, graças a seus vídeos consegui executar uma perfeita tela de login com opção de criar também novo usuário, fazendo de um modo que se a pessoa incluir um código "opcional" na hora de criar cadastro vira "Admin", se não inserir o código é "User", eu defini para que quando ao abrir o Excel seja tudo oculto e mostre apenas os formulários de login e após isso o de início, sendo que no de início tem uma tecla de configurações que faz reaparecer tudo novamente, se a pessoa que aperta no botão configurações for User retorna uma msg dizendo que o mesmo não é Admin. Obrigadooooooooooo!!
Fiz exatamente igual no vídeo. Usando os usuários que coloquei na planilha ele funciona exatamente como no video. A senha da erro se escrever errado e eu acesso se digitar certo. O problema é que se eu colocar qualquer coisa no usuário e digitar qualquer senha, consigo acessar a planilha.
Suas aulas foram excelentes, e de muita utilidade para o meu projeto, estou precisando de ajuda para criar uma opção de alterar senha no projeto "Como Fazer TELA DE LOGIN com Níveis de Acesso no Excel", voce poderia nos ajudar?
Gente consegui, é que escrevi alguns códigos com a primeira palavra em palavras minúsculas e outras faltando letras....rsrsrs, me desculpe mais estou aprendendo....obrigado e bora pra frente...kkkkk
Como faço para adicionar 3 usuários? eu tentei editar o código tentando adicionar 3 usuário com permissões para acessar planilhas diferentes, mas não consigo configurar para o terceiro, sempre dá erro. se eu adicionar um outro usuário consigo entrar de boa, só não sei alterar a permissão do terceiro. se puder dá umaforça agradeço.
Olá, fiz exatamente seguindo o passo a passo e está erro de compilação e Next sem For??? Nunca fiz programação na vida, estou tentando aprender, me desculpe o transtorno mais preciso de ajuda, por favor. (Tabela igual a sua, desenho da tela tbm e segui passo a passo nos códigos, não sei onde errei....😭😭😭
Acompanhei passo a passo cada ação e no final ao mandar executar não sei pq (se está tudo exatamente igual) DEU ERRO (Erro em tempo de execução '1004': O método 'RANGE' do objeto '_worksheet' falhou)...
@@cleo5366 consegui voltando no início de tudo e digitando tudo novamente, mas não saberia dizer onde foi q eu tinha errado. Imagino q foi alguma digitação q eu fiz errado. Só assim eu consegui. Deu muito trabalho, nem sei se compensa
Boa tarde. Excelente explicação, é a primeira vez que me aventuro. Segui passo a passo, deu erro "NEXT SEM FOR" Private Sub LabelBotao_Click() Dim Cadastros As Object Dim Cel As Range Set Cadastros = Planilha1.Range("Usuarios[ID]") For Each Cel In Cadastros If LCase(Me.TextBoxEmail.Text) = LCase(Cel.Offset(0, 3).Text) Then If CStr(Me.TextBoxSenha.Text) CStr(Cel.Offset(0, 4).Text) Then Me.LabelMensagem.Caption = "Senha Incorreta!" Exit Sub Next Cel End Sub
sou bem iniciante em VBA, graças a seus vídeos consegui executar uma perfeita tela de login com opção de criar também novo usuário, fazendo de um modo que se a pessoa incluir um código "opcional" na hora de criar cadastro vira "Admin", se não inserir o código é "User", eu defini para que quando ao abrir o Excel seja tudo oculto e mostre apenas os formulários de login e após isso o de início, sendo que no de início tem uma tecla de configurações que faz reaparecer tudo novamente, se a pessoa que aperta no botão configurações for User retorna uma msg dizendo que o mesmo não é Admin. Obrigadooooooooooo!!
De todas as aulas com esse título, sem dúvida nenhuma... foi a melhor aula!!! 👏👏👏
Que aula semsacional. Parabéns!
Melhor canal que ja vi !!! Parabéns pelo conteudo muito bommmmm
Amando essa aula
Muito obrigado por compartilhar conhecimento.
Muito bom parabéns Professor
Parabéns, Professor! Ansioso pra próxima aula!!!
Valeu até a próxima aula.
Fiz exatamente igual no vídeo. Usando os usuários que coloquei na planilha ele funciona exatamente como no video. A senha da erro se escrever errado e eu acesso se digitar certo.
O problema é que se eu colocar qualquer coisa no usuário e digitar qualquer senha, consigo acessar a planilha.
Suas aulas foram excelentes, e de muita utilidade para o meu projeto, estou precisando de ajuda para criar uma opção de alterar senha no projeto "Como Fazer TELA DE LOGIN com Níveis de Acesso no Excel", voce poderia nos ajudar?
Olá, boa noite professor gostaria de tirar uma dúvida sobre banco de dados, como faço para entrar em contato com vc?
Gente consegui, é que escrevi alguns códigos com a primeira palavra em palavras minúsculas e outras faltando letras....rsrsrs, me desculpe mais estou aprendendo....obrigado e bora pra frente...kkkkk
não esta lendo o adm entrando com os dois gmail cai na tela e usuário
O meu esta dando erro de compilação: next sem for
Aí n consigo mais avançar para o próximo passo. Obs: estou na parte da senha incorreta, estou fznd tudo certinho mas n vai!
alguem poste os codigos.
o meu ta dando erro 1004
Preciso de ajudaaaa, estou aprendendo agora e esta dando erro " erro de compilação Next sem For ", o que fazer?
esta dando erro next sem for
Como faço para adicionar 3 usuários? eu tentei editar o código tentando adicionar 3 usuário com permissões para acessar planilhas diferentes, mas não consigo configurar para o terceiro, sempre dá erro. se eu adicionar um outro usuário consigo entrar de boa, só não sei alterar a permissão do terceiro. se puder dá umaforça agradeço.
em vez de você colocar um "ELSE", você coloca um "ElseIf" para cada no tipo de acesso que vc quiser!
tem que colocar o tipó de usuario, 1 Admin ou 2 User acesso limitado
Só deu erro. Fiz exatamente igual. Desisto!
Olá, fiz exatamente seguindo o passo a passo e está erro de compilação e Next sem For???
Nunca fiz programação na vida, estou tentando aprender, me desculpe o transtorno mais preciso de ajuda, por favor. (Tabela igual a sua, desenho da tela tbm e segui passo a passo nos códigos, não sei onde errei....😭😭😭
Conseguiu corrigir o erro?
Estou com o mesmo problema😢
@@deizianeantunes6396 coloca um end if q creio q vai resolver
Acompanhei passo a passo cada ação e no final ao mandar executar não sei pq (se está tudo exatamente igual) DEU ERRO (Erro em tempo de execução '1004': O método 'RANGE' do objeto '_worksheet' falhou)...
Boa tarde!! Conseguiu resolver? O meu está dando o mesmo erro.😢
@@cleo5366 consegui voltando no início de tudo e digitando tudo novamente, mas não saberia dizer onde foi q eu tinha errado. Imagino q foi alguma digitação q eu fiz errado. Só assim eu consegui. Deu muito trabalho, nem sei se compensa
@@marcoaureliodasilveira4585 consegui resolver eu tinha digitado um carácter incorreto, obrigada por responder.
Boa tarde. Excelente explicação, é a primeira vez que me aventuro. Segui passo a passo, deu erro "NEXT SEM FOR"
Private Sub LabelBotao_Click()
Dim Cadastros As Object
Dim Cel As Range
Set Cadastros = Planilha1.Range("Usuarios[ID]")
For Each Cel In Cadastros
If LCase(Me.TextBoxEmail.Text) = LCase(Cel.Offset(0, 3).Text) Then
If CStr(Me.TextBoxSenha.Text) CStr(Cel.Offset(0, 4).Text) Then
Me.LabelMensagem.Caption = "Senha Incorreta!"
Exit Sub
Next Cel
End Sub
Está faltando dois "end id" no código, chat gpt me ajudou nessa
pode incluir dois "end if" abaixo de "exit sub"