Home Excel - Dicas Microsoft Excel VBA Excel VBA - Senhas Excel planilha senha inputbox multi usuario e senha acesso

Excel planilha senha inputbox multi usuario e senha acesso

E-mail Imprimir PDF

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esse Macro do Apl icativo Microsoft Excel VBA(Visual Basic Application) tem por finalidade solicitação de Usuário
e Senha do usuário para acesso a determinadas folhas de planilhas. Com o Auxílio de uma InputBox(Entrada de Dados)
será solicitado do Usuário primeiramente o Nome do Usuario, posteriormente a Senha.
oberserve no código que criei uma Array no RangeName (Células Renomeadas) para verificação dos valores válidos,
isto é, há uma correspondencias ( 1 -1 ); (2 - 2); ( 3 - 3) etc..
SOMENTE TESTE: Um truque usado por algum desenvolvedor programador em excel é você ocultar os RangeNames,
e se for o caso após criado Usuario e Senha poderá tb excluir o Macro que cria os RangeNames - isso implica em usuario
caso acesse o VBA, não verá o macro que cria os RangeNames e nem tampouco os RangeNames. Ok..
( isso é somente uma planiha teste que faz de nossa Area Exclusiva para Assinantes)

'//============' esse macro cria range(name) arrays dos usuários que acessarão o arquivo.
Sub sbx_criar_nomes_range()
ThisWorkbook.Names.Add "Identidade", Array("pedro", "paulo", "joao", "jose")
ThisWorkbook.Names.Add "sbx", Array("5301", "5401", "5501", "6601")
'//============' veja bem se for inserir false no visible 'ocultará o nome do range'
ThisWorkbook.Names("Identidade").Visible = False 'observe que o nome desse range ficou oculto
ThisWorkbook.Names("sbx").Visible = True
End Sub

'//============' validar usuario e senha para acesso a determinado arquivo
Sub sbx_validacao_usuario_senha()
Dim vIdentidade As String, i As Variant, m As String
Dim wst As Worksheet
Set wst = Saber3
1 vIdentidade = InputBox("Idenfique-se:", "Escola Saberexcel VBA Estudos®", "DIGITE SEU USUÁRIO")
If vIdentidade = "" Then Exit Sub
i = Application.Match(vIdentidade, [Identidade], 0)     '//==========' busca será realizada no RangeName.

If IsError(i) Then MsgBox "Prezado [ " & vIdentidade & " ] voce nao está autorizado acessar este arquivo !" & vbCrLf & _
"- - - - - - - - - - - - - - - - " & vbCrLf & _
"(*) - Procure o Administrador " & vbCrLf & _
"Escola Saberexcel VBA Estudos®" & vbCrLf & _
"Treinamentos com Macros, Fórmulas e Funções ", vbCritical, "Prezado [ " & vIdentidade & " ] >>> Procure Administrador": GoTo 1
m = InputBox("Bem vindo [ " & vIdentidade & " ] digite sua senha :", "Escola Saberexcel VBA Estudos®", "DIGITE SUA SENHA")
If m = "" Then Exit Sub
MsgBox "Senha de acesso " & IIf(Application.Index([sbx], i) = m, "", "NÃO É ") & " válida...", vbInformation, "Escola Saberexcel VBA Estudos"
If (Application.Index([sbx], i) = m) Then Saber3.Visible = True: Saber3.Select
End Sub
'//==========='
'//esse macro é útil caso pegue um mala pela frente que desabilite o menu suspenso da sua aba de planiilha (Botão direito do Mouse)
'para seleção de sua aba de planilha, isso refaz a ação, isto é, tornará visivel.

'//====== caso voce queira deabilitar só  substituir o "False"   por 'T rue'
Sub HABILITA_BT_DIREITO_MOUSE()
For Each sbx_menu_aba In Application.CommandBars
If sbx_menu_aba.Name <> "Cell" Then  '//========' Cells referencia ao menus do botão direito do mouse
   sbx_menu_aba.Enabled = True
End If
Next

'//=========' mudar o caption do seu Livro, Pasta ou Workbook  e também do Aplicativo Excel use as linhas de códigos abaixo
'Application.Caption = "SBX_TREINAMENTOS_VBA"   ' // =========== para retirar  =  Application.Caption  = ""
'ActiveWindow.Caption = "Escola Saberexcel VBA Estudos®" ''//======'   para retirar  = Activewindow.Caption =  ""   ' ou seu nome ....
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




                 '//=====' faça o login para acessar essa planilha -Registre-se em nosso Site é simples somente email(válido)  >> usuario e senha
Baixe o exemplo de planiha contendo os macros acima:         
Excel planilha senha inputbox usuario e senha acesso (84.94 KB)

 

Última atualização em Dom, 04 de Novembro de 2012 08:55  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje336
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana24996
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38725
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461554
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA