Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VBA com várias senh...
 
Notifications
Clear all

VBA com várias senhas

 
2024 - VBA & Macros
Post Recente por gabrba 8 anos atrás
9 Posts
2 Usuários
0 Reactions
1,559 Visualizações
RSS
 gabrba
(@gabrba)
Posts: 33
Trusted Member
Topic starter
 

Boa tarde!

Necessito montar um ambiente onde o colaborador somente consegue de acessá-lo digitando o nº do seu registro, criei o código abaixo porém está retornando um erro por falta de objeto ou simplesmente não detecta como registro incorreto/não cadastrado.

Private Sub cmdEntrar_Click()

'Caso clicar em OK e estiver em branco
        
        If txtRegistro = "" Then
            MsgBox "Digite seu registro!"
            Exit Sub
            txtRegistro.SetFocus
        End If

'Quando digita o registro incorretamente
              
         col = 5
         lin = 3
         While lista.Cells(lin, col) <> txtRegistro
             lin = lin + 1
             If lin > 50 Then
             'If txtRegistro <> registro Then
             MsgBox "Usuário não cadastrado"
             Exit Sub
             'End If
             End If
             Wend
        
        If txtRegistro <> registro Then
            MsgBox "Usuário não cadastrado"
            Exit Sub
        Else
            MsgBox "Seja Bem Vindo(a)!"

            Sheet1.Visible = xlSheetVisible
            Sheets("Sheet1").Activate
            ActiveWindow.DisplayWorkbookTabs = False
            Hide
        End If
End Sub
 
Postado : 29/08/2016 10:40 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Seu codigo esta incompleto, coisas que vc precisa corrigir:

Falta declarar a variavel registro

Carregar a variavel registro

Verificar se o usuario informado na txtregitro existe na sua lista de usuarios, para assim seu sistema abrir.

Não é dificil ajustar mas se nao conseguir disponibilize o arquivo com o formulario para que os ajustes sejam feitos corretamente.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 29/08/2016 4:19 pm
 gabrba
(@gabrba)
Posts: 33
Trusted Member
Topic starter
 

Segue o anexo.
Continuo com dúvidas à respeito, agradeço pela ajuda.

 
Postado : 30/08/2016 11:48 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Ve se assim funciona.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 30/08/2016 4:24 pm
 gabrba
(@gabrba)
Posts: 33
Trusted Member
Topic starter
 

Ficou irado!!

Vou pedir mais um detalhe, cada registro diz respeito à um colaborador.
Quando digitar o meu registro, tem como aparecer meu nome em uma determinada célula? Na aba lista contém os registros e no lado destes podem ser colocados os nomes dos operadores, aí quando um deles acessar com seu registro irá aparecer o seu nome no formulário.

Se for possivel, ficarei muito agradecido :D

 
Postado : 31/08/2016 6:14 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Ve se assim ajuda.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 07/09/2016 4:01 pm
 gabrba
(@gabrba)
Posts: 33
Trusted Member
Topic starter
 

Olá,

Não é exatamente no que necessito, o formulário está ok.
Seria o seguinte: a partir do registro digitado para acessar a tabela, apareceria o nome do operador em uma das abas (somente em uma célula).

Na aba Rastreabilidade, na célula ao lado da que está escrita "Operador", em específico.

Mas irei tentar por aqui mesmo, o mais difícil você conseguiu resolver, portanto muito obrigado pela ajuda!!

 
Postado : 08/09/2016 8:09 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Ve se é assim!!

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 09/09/2016 4:35 pm
 gabrba
(@gabrba)
Posts: 33
Trusted Member
Topic starter
 

Ficou show, obrigado!!

 
Postado : 12/09/2016 5:23 am
Forum Jump:
  Tópico Anterior
Próximo Tópico