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)
