Home Excel - Dicas Microsoft Excel VBA Excel VBA - Senhas Excel planilha vba senhas userform e textboxes para o acesso

Excel planilha vba senhas userform e textboxes para o acesso

E-mail Imprimir PDF

Saberexcel - o site das macros

Procedimentos e macros do Aplicativo Microsoft Excel VBA, usando textboxes e userforms solicita senha para o acesso a determinado programa e ou artigo.

PARA MONTAR A PLANILHA EXEMPLO:

1 - Userform ....................: = chamado Form1
1 - Userform ....................: = chamado Form2
1 - Textbox .....................: = nomeado como Text1
1 - Textbox .....................: = nomeado como Text2
1 - Commandbutton .........: = nomeado como - Command1
1 - Commandbutton .........: = nomeado como - Command2
1 - Label - caption ............: = nome (direcionado para o textbox 1 Text1)
1 - Label - caption ............: = sobrenome (direcionado para o Text2)

INICIO

No Form2 folha e propriedade Form_Activate, nós escrevemos:
Private Sub Form_Activate()
'Dá ênfase ao Text1, cursor retorna ao Text1
Form2.Show
Text1.SetFocus
End Sub

'No Form2 e outros "Form_Load, nós escrevemos:
Private Sub Form_Load()
'Centro da folha - (se você não conhece esse processo, a carga sobre o site)
CenterForm Me
End Sub

'Nós escreveremos o código para o botão "Limpar/cancelar"
Private Sub Command2_Click()
'Vamos apagar o conteúdo do TextBox
Text1.Text = ""
Text2.Text = ""
'O cursor retorna SetFocus para o controle Text1
Text1.SetFocus
End Sub

Private Sub Command1_Click()
Dim t As String
Dim M As String
Dim C As String
Dim MP As String

'Escolha um nome de usuário
C$ = "Saber" 'ou o nome de sua escolha

'Escolha o segundo nome a sua escolha
MP$ = "Excel" 'ou outro nome qualquer de sua escolha

'Verifica se o nome do usuario esta correto
If Text1.Text <> C$ Then GoTo Sair 'neste caso é "C$ = Saber"

'Se o erro referem-se ao rótulo Sair (sair)
'Selecione a segunda Senha

If Text2.Text = "" Then 'se caso o usuario nao digitar nada
'Erro de digitação

t$ = "Atenção, nao digitou nada!"
M$ = "Você deve digitar uma senha!"
Reponse% = MsgBox(M$, 0 + 32, t$)
Text2.SetFocus
Exit Sub
End If

If Text2.Text <> MP$ Then 'Se a palavra senha estiver incorreta, ocorre....
t$ = "Atenção!" ' aqui aparece no cabeçalho do form da mensagem titulo da msg
M$ = "voce nao esta autorizado a utilizar esse programa!"
Reponse% = MsgBox(M$, 0 + 16, t$)
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
t$ = "Seja Bem Vindo.....!" ' aqui aparece no cabeçalho do form da mensagem titulo da msg
M$ = "Voce esta autorizado a entrar no programa"
Reponse% = MsgBox(M$, 0 + 64, t$)
Form2.Show
Unload Form1
Exit Sub
End If
Exit Sub

'Alerta de erro
Sair:
Text1.Text = ""
t$ = "Atenção!"
M$ = "Codigo Incorreto, digite novamente !"
Reponse% = MsgBox(M$, 0 + 32, t$)
'
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
Unload Me
End Sub




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



Última atualização em Ter, 23 de Agosto de 2011 08:43  

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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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