Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
TELA DE LOGIN COM R...
 
Notifications
Clear all

TELA DE LOGIN COM RESTRIÇOES P/ USUARIOS

 
2024 - VBA & Macros
Post Recente por JoilsonDO 9 anos atrás
5 Posts
3 Usuários
0 Reactions
1,121 Visualizações
RSS
 marciobin
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Bom dia !
Senhores , uso um form para tela de login , mais vejo a necessidade de acrescentar algumas coisas .

1- tela de login atual coloquei somente um usuario
2- quero colocar tres usuarios , mas porem o poblema mora aqui :
1.0 - quero definir quais abas cada usuario pode acessar :

ADMIN - PODE ACESSAR TODAS AS ABAS
MARCIO TESTE - PODE ACESSAR SOMENTE JAN, FEV,MAR,ABR,MAI
MARCIO TESTE 1 - PODE ACESSAR SOMENTE A ABA PESQUISA, ISSO É SO UM EXEMPLO.

OBS: nao estamos falando de multi usuario . So quero se tiver como definir as abas de acesso por usuario .
se alguem tiver algum modelo ficarei grato .

No aguardo !

 
Postado : 07/08/2015 6:24 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se utilizar a pesquisa pelo termo "Login por usuario" encontrara vários tópicos a respeito :

Login por usuario
Aproximadamente 609 resultados (0,24 segundos)
http://www.google.com.br/cse?cx=partner ... %20usuario

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2015 6:41 am
 JoilsonDO
(@joilsondo)
Posts: 47
Eminent Member
 

Amigo,
Montei um exemplo rápido que acho que pode lhe ajuadar, basta apenas as adaptações.

Private Sub CommandButton1_Click()

'checa o usuário e senha
If TextBox1 = "Admin" And TextBox2 = "123" Then

'deixa o excel visivel
Application.Visible = True

'esconde a tela de login
Unload Me

'no usuário abaixo esconde todas as abas e deixa só a plan1 visivel
  Plan1.Visible = xlSheetVisible
            Sheets("Plan1").Activate
            ActiveWindow.DisplayWorkbookTabs = False
                        End If
            
            'no usuário abaixo esconde todas as abas e deixa só a plan2 visivel
            If TextBox1 = "Admin2" And TextBox2 = "1234" Then
            Application.Visible = True
            Unload Me
  Plan2.Visible = xlSheetVisible
            Sheets("Plan2").Activate
            ActiveWindow.DisplayWorkbookTabs = False
            
            End If
            
           
End Sub
 
Postado : 07/08/2015 7:11 am
 marciobin
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Bom dia ,

Mauro , olhei no link , porém nao consegui fazer download .

JoilsonDO , o botao de comado nao funcionaou ,mas de todo muito obrigado pessoal , é isso mesmo que preciso .

se alguem puder posta um modelo na planilha fico grato .

 
Postado : 07/08/2015 7:21 am
 JoilsonDO
(@joilsondo)
Posts: 47
Eminent Member
 

VocÊ tem que fazer um Userform, com um Textbox1 e um Textbox2 e no commandbutton colocar exatamente o código acima.
Porém você deve digitar o usuário e a senha conforme colocou no código, para aí sim dar certo.

E do resto é só fazer as adaptações necessárias.

Abraços.

 
Postado : 07/08/2015 9:49 am
Forum Jump:
  Tópico Anterior
Próximo Tópico