Olá pessoal, obrigada pela ajuda.
Tentei os 2 codigos e inclusive o codigo da planilha e deu erro, eu tenho este codigo aqui:
Private Sub btacessar_Click()
Application.ScreenUpdating = False
Application.OnKey "{Escape}", ""
If txtusuario = "Admin" And txtsenha = "123" Or _
txtusuario = "admin" And txtsenha = "123" Then
Unload Me
frmcapa.Show
Else
MsgBox "Usuário ou Senha Inválido, favor contatar Dpto Técnico.", vbInformation, "Feba Indústria Mecânica Ltda"
End If
End Sub
Private Sub UserForm_Click()
With Me ' não apagar as informações continas no formulario
.Hide
End With
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True ' desabilita o botão X do formulario.
Unload Me
End Sub
Private Sub btsair_Click()
Unload frmacesso
Application.Quit
End Sub
Ele faz certinho, desabilita o x mais como meu formulario e acesso, o usuario digital login e senha, e se estiver certo ele abre outra caixa, se tiver errado ele aparece mensagem, qdo ele abre outro formulario por cima qdo a resposta é verdadeira, o formulario do login agora esta continuando aberto ele não esta fechando com eu pedi no unload me.
Como corrijo minha programação?
Obrigada
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/10/2011 5:30 am