Ir para conteúdo
Fórum Script Brasil
  • 0

Codigo VBA para quando clicar no botão fechar (x), o userfom feche e logo em seguida abra o menu de inicio


Di Oliveira

Pergunta

Olá amigos,  estou com um probleminha aqui em um código vba, estou desenvolvendo um controle de biblioteca com menu iniciar, para selecionar as ações de cadastro, devolução, emprestimo etc.., tudo funcionando beleza, o problema é que não estou conseguindo gerar um código para ao clicar no botão fechar (x), esse feche o userform (exemplo: cadastro) que está sendo usado e retorne ao menu iniciar. se alguém tiver alguma dica, agradeço desde já.

O código que estu usando temporariamente é esse que segue abaixo, mas o que ele faz é salvar o trabalho que foi feito até o momento e fecha o workbook por completo:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)


    If CloseMode = vbFormControlMenu Then
    
     
        'SALVAR ARQUIVO
  
      ThisWorkbook.Save
        
      
        'SAIR DO EXCEL
      
        
        Application.Quit
    
    End If

Editado por Di Oliveira
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Também não entendi, mas tenta isso: (o Unload fecha a janela que vocês especificar e o .Show abre a janela que você desejar).

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)


    If CloseMode = vbFormControlMenu Then
    
     
        'SALVAR ARQUIVO
  
      ThisWorkbook.Save
        
      
        'SAIR DO EXCEL

Unload UserForm
INICIAR.Show

End Sub

Link para o comentário
Compartilhar em outros sites

  • 0

Atualizando código

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)


    If CloseMode = vbFormControlMenu Then
    
     
        'SALVAR ARQUIVO
  
      ThisWorkbook.Save
        
      
        'SAIR DO EXCEL

'fechar formulario
Unload UserForm1

'fechar planilha

Application.Quit

End If
End Sub

Editado por Pedro Queiroz
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...