Armazenar Senha em uma determinada linha copiada do Textbox
Enviado: 14 Nov 2017 às 06:21
Eu só quero salvar em uma celular determinada a Matricula que pede para abrir a Planilha.
quero apenas copiar e colar se a senha for verdadeira dentro do if.
'"Segue como esta a logica ate agora.
Vejam como ele ficou extenso pq não achei outra forma de utilizar as Matriculas
Lembrando que eu só preciso digitar uma Matricula
Não tem Senha só Usuario.
me ajudem abraços"
quero apenas copiar e colar se a senha for verdadeira dentro do if.
'"Segue como esta a logica ate agora.
Vejam como ele ficou extenso pq não achei outra forma de utilizar as Matriculas
Lembrando que eu só preciso digitar uma Matricula
Não tem Senha só Usuario.
me ajudem abraços"
Código: Selecionar todos
Private Sub buttonok_Click()
If matricula.Value = Plan4.Range("l4").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l5").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l6").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l7").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l8").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l9").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l10").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l11").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l2").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l3").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l14").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l15").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l16").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l17").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l18").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l19").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l20").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l21").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l22").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l23").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l24").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l25").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l26").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l27").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l28").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l29").Value Then
Unload frmacesso
Application.Visible = True
Else
If matricula.Value = Plan4.Range("l30").Value Then
Unload frmacesso
Application.Visible = True
Else
MsgBox "Matricula Incorreta ou não Autorizada"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub buttoncançelar_Click()
Application.Quit
End Sub
Private Sub matricula_Change()
End Sub
End Sub
Private Sub UserForm_Initialize()
Application.Visible = False
End Sub