Impedindo fechar o formulário no [X]

Postado por Bethoven Marcadores:

Este código mostra como fazer com que o formulário não seja fechado pelo ‘X’ e sim por algum botão específicio.

 

Clique duas vezes no formulário e insira o código abaixo:


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' Evita que o usuário feche a tela no 'x' na tela
    If CloseMode = vbFormControlMenu Then
        MsgBox "Use o Botão Fechar!!!"
Cancel = True
    End If
End Sub

 

Para fechar o formulário insira o código abaixo em algum botão.

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

 

Voltar