Excel planilha vba senhas userform e textboxes para o acesso

Sáb, 27 de Novembro de 2010 15:02 Expedito Marcondes
Imprimir

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



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