Impedir o fecho de um formulario através do botão X - JJoão (03/2002)

Colocando esta macro no formulário pode impedir o utilizador de o encerrar através do botão X

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
       'só é travada a operação de fechar 
       'se for através do botão X do formulário
        If CloseMode = vbFormControlMenu Then
           MsgBox "Não é permitido fechar por aqui ! " & _
                  "Clique no botão 'Encerrar'", _
                   vbCritical, "Erro"
           Cancel = True
        End If
End Sub