| Descricao: |
 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 Aplicativo Microsoft Excel VBA - Saber Excel
|