Jump to content
Zeant

[Resolvido] VBA Excel

Recommended Posts

Zeant

Boas pessoal,

alguem sabe como é que eu posso abrir um formulario no excel antes do livro abrir?

para se perceber melhor dou um exemplo de um formulario de login, em que so abria o livro de excel se o login fosse correcto....

Aguardo resposta

Cumprimentos,

zeant

Share this post


Link to post
Share on other sites
jpaulino

Antes de  abrir o workbook não consegues, mas consegues abrir assim que o workbook abre. Como o UserForm por defeito é Modal, faz o efeito que pretendes. Só tens depois de fechar o workbook se não inserir login/password correcta.

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Share this post


Link to post
Share on other sites
Zeant

Pois entao fui eu que ve mal a cena, eu ja conhecia essa solução que estas a a dizer, mas obrigado na mesma....

Ja agora como eu faço para fechar a folha em caso de falha no login??

Share this post


Link to post
Share on other sites
jpaulino

Podes fazer o seguinte (por exemplo):

Declaras uma variavel "global"

Private loginValido As Boolean

No botão de login

' Valida o login
Private Sub CommandButton1_Click()
    
    ' Caso o login seja válido
    loginValido = True
    
End Sub

   

Finalmente no evento QueryClose verificas de o login não é válido e fechas o workbook

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If Not loginValido Then
       
       ' Para não aparecer a confirmações
       Application.DisplayAlerts = False
       
       ' Encerra a applicação
       Workbooks.Close
       
    End If
End Sub

Share this post


Link to post
Share on other sites
Zeant

Obrigado jpaulino, foi mesmo assim que eu fiz... eu tinha algumas duvidas por isso que pedi para me dizeres como era...

ja resolvi o meu problema, obrigado

Cumprimentos,

Zeant

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.