buscar usuário de quem fez o login da planilha do excel.

[Tiago Ramiro]

Bom Galera,

 

Estou precisando de uma ajuda, criei uma planilha no excel, com login para abrir com diverso usuário, para fazer um controle de peças que são inspecionadas, conforme o CQ da empresa vai inspecionando, gostaria que neste planilha, na aba "registro inspecao", quando for criar um novo registro, na célula/coluna "Usuário", já busca-se o nome do usuario que está logado na planilha naquele momento que criou o novo registro, já tentei algumas funções e não obtive resultado. Gostaria de ver se alguém consegue me ajudar, vou deixar a planilha em anexo com os código e senha aberto. Usuário "Acesso Total": TIAGO; Senha: 123.

 

Fico no aguardo. 

Planilha de Registro de Inspeção CQ 2017.rar

[Luiz Lannes Loureiro]

Olá, @Tiago Ramiro .

 

Você fez um sistema de login por UserForm, logo é só puxar o campo no qual o usuário insere o login. No seu caso, é txtUsuario.Text 

 

Ex:

Sheets("Senha").Range("D1") = txtUsuario.Text   Dessa forma, sempre que logar, o campo D1 da planilha Senha conterá o nome do usuário logado.

 

Deixo uma observação. Cuidado para linkar o resultado de D1, no exemplo, com todos os campos, já que sempre que logarem esse resultado mudará. Será interessante colocar uma planilha somente para registro de logins, no qual você puxa o último login efetuado.

 

Como sugestão, você pode incluir um loop para achar a linha vazia e incluir o usuário logado.

 

Ex:

'Defini linha = 2 porque normalmente tem cabeçalho. Se tiver mais informações além do cabeçalho, pode começar na linha 4, 5, 1000....

Linha = 2

' shtLogins é exemplo da planilha utilizada pros logins e a coluna A é para os nome dos usuários.

Do Until shtLogins.Cells(Linha, "A") = ""
Linha = Linha + 1
Loop

' após achar a linha vazia, você insere todas as informações que desejar.

shtLogins.Cells(Linha, "A") = txtUsuario.Text

 

Aproveitando esse código, pode incluir nas outras colunas da mesma linha horário, data, e qualquer outra informação desse login.

 

Espero ter ajudado. Abraço.