Olá, preciso resolver uma aplicação que consiste em um botão de “Entrar” que leva para uma segunda tela. No entanto, essa função só pode ser realizada com algum dos usuários diversos logados.
Como Abrir Uma Tela Apenas Logado
@amcassis, boa tarde.
Podes realizar a configuração em “Permissão de Usuário”. Veja:
Caso não queira fazer desta forma, pode-se criar um script que verifique qual é o usuário logado na aplicação e, dependendo de qual for este, abra ou não a tela. Veja:
Sub CommandButton1_Click()
If Application.User = "" Then
MsgBox "Não usuários logados no sistema!"
Else
If Application.User <> "Usuario1" Then
MsgBox "Usuário não tem permissão de acesso!"
Else
Application.GetFrame("").OpenScreen("Quadro1?4?0"), 0
End If
End If
End Sub
Sds.
O script atendeu perfeitamente minha aplicação. Muito obrigado.