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

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_counterHoje4338
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana28998
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês42727
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10465556
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