Este fórum está sendo desativado

[juniorieq61]

Olá pessoal, boa tarde!

Na maioria dos meus projetos, desenvolvidos em VBA, seja uma simples Sub Rotina ou até mesmo uma simples MsgBox dentro do Evento Open, sempre uso o sistema de autenticação de usuários, com a finalidade de restringir acessos, e conseguir mapear quem tem ou não acesso a um recurso, ou até mesmo a questão de abrir a pasta de trabalho, sendo assim, valido os usuários no evento Open através de um Select Case, ou seja, Case is = "user1", "user2", "user3", "user4" | MsgBox "Bem vindo" Case Else MsgBox "Não autorizado" ThisWorkbook.Close False.

Atualmente uso esta estrutura, porém em um grupo de aprox. 75 colaboradores, preciso autorizar apenas 16 deles por exemplo, que seria o pessoal que administraria este arquivo, nesta atual estrutura é difícil pois eu teria que colocar cada usuário separado por vígula, dentro do Case, preciso de um código que eu consiga manipular a lista de autorizados através de um Range em uma determinada planilha, para que o Gerente de TI da empresa (por ex.) consiga realizar a liberação ou negação de acessos através desta lista.

Pode me ajudar?

Segue em anexo um exemplo.

[osvaldomp]

Experimente:

Código: Selecionar todos

If Application.CountIf([A:A], Environ("USERNAME")) > 0 Then
 'coloque aqui o seu código
End If