Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
FECHAR APENAS USERF...
 
Notifications
Clear all

FECHAR APENAS USERFORM ATIVO, PERMANECENDO OS ANTERIORES

 
2024 - VBA & Macros
Post Recente por AMORIM123 7 anos atrás
3 Posts
2 Usuários
0 Reactions
899 Visualizações
RSS
 AMORIM123
(@amorim123)
Posts: 0
New Member
Topic starter
 

Boa tarde pessoal

Alguém teria algum cód. para que qnd clicasse no x- vermelho do userfome1 somente ele fosse fechado.
É pois tenho um formulário que da origem a outro form qnd um btn é selecionado; gostaria que qnd clicasse no x - vermelho do userform2 os form's anteriores permanecesse abertos.

*Obs.: atualmente se fecho no x-vermelho de qualquer form a planilha inteira é fechada, gostaria que essa característica fosse válida apenas para o 1º userform e que os demais fechassem qnd selecionado x-vermelho de cada userform

Aquém puder contribuir... muito abrigado!

 
Postado : 18/04/2018 11:10 am
 klarc28
(@klarc28)
Posts: 0
New Member
 

Verifique o evento

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

End Sub

de cada formulário.
No formulário que você não quer que encerre o arquivo, deixe esse evento em branco.

 
Postado : 18/04/2018 12:11 pm
 AMORIM123
(@amorim123)
Posts: 0
New Member
Topic starter
 

Klarc,

Da forma que disse não deu certo, mesmo assim, por já ter visto esta sub em um cód de calendário pop-up, para quando fechar ele não encerrar a workbook...ai foi só fazer o link..vlw, muito obrigado!

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

If CloseMode = vbFormControlMenu Then
        Cancel = True
        Hide
    End If
End Sub
 
Postado : 18/04/2018 12:26 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico