Como Fazer Uma Tela de Login No Excel
Transcript of Como Fazer Uma Tela de Login No Excel
-
8/19/2019 Como Fazer Uma Tela de Login No Excel
1/9
Como fazer uma tela de login noExcelQuer retornar mais segurança aos seus documentos do Excel? Desejarestringir seu acesse utilizando campos de login? A partir decomandos VBA é possível criar uma tela de login para acesso àsinormaç!es contidas no documento" mediante usu#rio e sen$a%
& Excel possui diversas ormas de retornar segurança aos dadoscolocados em suas planil$as" através de sen$as de proteç'o"(lo)uear determinadas células ou criar o(jetos por meio de lin$as decomando onde se pode deinir usu#rio e sen$a de acesso% & método)ue iremos ensinar neste tutorial consiste em uma tela de login ondeser# criado um usu#rio e uma sen$a para serem colocados toda vez)ue o documento or a(erto% *aso a pessoa )ue or acess#+lo errar oun'o sou(er a sen$a" o documento se ec$ar#%
,ara utilizarmos os comandos VBA e as demais coniguraç!es )ueeste disp!e" devemos ter ativo no Excel a a(a Desenvolvedor "respons#vel por trazer estas aç!es% -e voc. n'o a tem ativa" acesseeste outro tutorial e a ative de orma simples e r#pida%Como usar uma VBA no Excel ,ara darmos início ao processo a(ra um documento em (ranco e crie
uma nova planil$a c$amada /-en$a/ e nela as colunas /0su#rio/"/-en$a/ e /1ormul#rio/% A)ui voc. ir# deinir a )uais planil$as2c$amamos de /ormul#rio/3 o usu#rio tem acesso" seu login e suasen$a% 4em(rando )ue o administrador deve ter acesso à planil$a/-en$a/" o5? ,ois s6 assim ele poder# adicionar novos users" novassen$as" mudar permiss!es de acesso" etc%
7epare )ue devemos repetir o processo para todos as planil$as )ue ousu#rio tiver acesso% 8o exemplo acima dei acesso ao admnistrador
para todos os locais%
http://www.aprenderexcel.com.br/2013/tutoriais/como-usar-uma-vba-no-excelhttp://www.aprenderexcel.com.br/2013/tutoriais/como-usar-uma-vba-no-excel
-
8/19/2019 Como Fazer Uma Tela de Login No Excel
2/9
CRIANDO A TELA DE LOIN A criaç'o da tela é uma das etapas mais importante e um pouco maiscomplexa )ue as demais% V# à a(aDesenvolvedor e cli)ue em VisualBasic" onde seremos direcionados # janela de ediç'o de comandos
VBA% 2se n'o estiver vendo a guia desenvolvedor" cli!ue a!ui ecolo)ue+a disponível em )uest!es de minutos3%
8a janela de ediç'o" cli)ue em Inserir e ap6s em "ser#orm% ,ara
nomear e ajustar o ormul#rio localize o )uadro de propriedades"localizado no lado es)uerdo do mesmo% 8ele" altere as seguintesinormaç!es9 8o campo Ca$tion voc.colocar# Login e nocampo %name& colo)ue frmLogin% ,ara icar mais (onito vamoscolocar um undo pretoescol$endo 'ac(Color)*+,,,,,,,,*%$reto& em Bac(Color &(serve o resultado9
http://www.aprenderexcel.com.br/2014/tutoriais/como-inserir-a-guia-desenvolvedor-no-excelhttp://www.aprenderexcel.com.br/2014/tutoriais/como-inserir-a-guia-desenvolvedor-no-excel
-
8/19/2019 Como Fazer Uma Tela de Login No Excel
3/9
-
8/19/2019 Como Fazer Uma Tela de Login No Excel
4/9
Agora é s6 criar as caixas de texto onde o usu#rio ir# colocar login e
sen$a% ,ara isso v# no (ot'ozin$o )ue tem o /A(/% 8a)uela )ue orreerente ao nome do usu#rio voc. ir# mudar ocampo %Name& paratxt"suario + sem acento mesmo + e a)uela )ueor da sen$a para txt0en1a% A$$" e esta da sen$a precisa ter ocampo 2ass3ordC1ar com um 4% Assim sua sen$a sair#criptograada%
-
8/19/2019 Como Fazer Uma Tela de Login No Excel
5/9
Agora" vamos adicionar as lin$as de comando do (ot'o O-% D. doiscli)ue nele e na janela de ediç'o )ue se a(rir cole o seguinte c6digo9Private Sub CommandButton1_Click()
Dim lTotal As Long
Dim lContador As Long
lsDesabilitar
Sheets(Senha)!"ange(#A#1$#C#%&&&&)!Auto'ilter 'ield$1 Criteria1$ * t+t,suario!Te+t
Sheets(Senha)!"ange(#A#1$#C#%&&&&)!Auto'ilter 'ield$- Criteria1$ * t+tSenha!Te+t
lTotal .orksheet'unction!Subtotal(/ Sheets(Senha)!"ange(A$A))
0 lTotal 2 1 Then
Active.orkbook!,n3rotect Pass4ord$1-/
'or lContador - To lTotal
Sheets(Sheets(Senha)!"ange(C * lContador)!5alue)!5isible True
-
8/19/2019 Como Fazer Uma Tela de Login No Excel
6/9
6e+t lContador
,nload rmLogin
7lse
8sgBo+ ,su9rio ou senha incorretos:
7nd 0
Active.orkbook!Protect Pass4ord$1-/ Structure$True .indo4s$'alse
7nd Sub
Private Sub t+t,suario_;e
-
8/19/2019 Como Fazer Uma Tela de Login No Excel
7/9
)ue consta em min$as planil$as% Adapte ao seu caso" o5? E seadicionar mais planil$as n'o es)ueça de vir a)ui e adicionar mais umalin$a de c6digo para ela%Public Sub lsSho4()
rmLogin!Sho4
7nd Sub
Public Sub lsDesabilitar()
Active.orkbook!,n3rotect Pass4ord$1-/
Sheets(Contas)!5isible 'alse
Sheets(Com3ras)!5isible 'alse
Sheets(?astos)!5isible 'alse
Sheets(Senha)!5isible 'alse
Active.orkbook!Protect Pass4ord$1-/ Structure$True .indo4s$'alse
7nd Sub
& pr6ximo passo é dar ; cli)ues em /Esta2asta7de7tra'al1o/ e colar
o seguinte c6digo na janelin$a de ediç'o )ue oi a(erta9Private Sub .orkbook_@3en()
lsDesabilitar
7nd Sub
Agora v# l# na planil$a e crie uma planil$a c$amada /5enu/% 8elavamos criar um (ot'o" conorme j# aprendemos nesta aula% Depoisvoc. clica com o (ot'o direito nele e em /Atri'uir macro.../% 8a nova
janela )ue aparecer selecione /is01o3/ e d. um o5%
http://www.aprenderexcel.com.br/2013/tutoriais/como-criar-botoes-num-documento-excelhttp://www.aprenderexcel.com.br/2013/tutoriais/como-criar-botoes-num-documento-excel
-
8/19/2019 Como Fazer Uma Tela de Login No Excel
8/9
,rotin$o% Agora ec$e a janela e salve seu documento como 5odo+a'ilitado $ara 5acro" caso contr#rio" todo tra(al$o ser# perdido%
-
8/19/2019 Como Fazer Uma Tela de Login No Excel
9/9
Agora" toda vez )ue algum usu#rio tentar acessar seu documentoprecisar# entrar com login e sen$a% A(aixo o do