VBA Excel - Formulário - Impedindo o fechamento no [X]

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

2013 Iniciou - Sejamos pescadores desenvolvedores

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Encerramento do ano Comercial de 2012

Impedir o formulário que desenvolvemos seja fechado no momento errado ou sem querer, pode ajudar muito aos usuários menos atentos. O código abaixo mostrará como fazer isso, evitando que o formulário seja fechado ao se pressionar o 'X'.

Inicie por colocar o código abaixo no formulário: Clique duas vezes no formulário e cole o código:

Sub UserForm_Close (Cancel As Integer, CloseMode As Integer) 

    If CloseMode = vbFormControlMenu Then 

        MsgBox "Pressione o botão Fechar." 

        Let Cancel = True 

    End If 

End Sub

Para fechar o formulário inseriremos um código num botão do formulário:

Private Sub CommandButton1_Click() 

Unload frm_Cad_Client

End Sub

Tags: VBA, Excel, Form, Close, fechar, unload