Formulario, quitar (X) parte superior derecha del Formulario

[Janlui]

Como puedo eliminar la barra superior del formulario para que solo pueda salir por boton abortar.

[JSDJSD]

Se puede eliminar, pero porque  no la inutilizas y obligas igualmente a usar el botón Abortar ?

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     If CloseMode = 0 Then Cancel = True
End Sub

 

[Janlui]

Hola JSDJSD , si funciona, muchas gracias

 

[Jose BN]

Hace 32 minutos , Janlui dijo:

Hola JSDJSD , si funciona, muchas gracias

 

Hola! @Janlui en mi caso como ya lo ha indicado @JSDJSDse condiciona a un botón el cierre del form, otra opción si no desea que aparezca la (X), utilizo esto:

Private Sub UserForm_Initialize()
Dim lngWindow As Long, lFrmHdl As Long
    lFrmHdl = FindWindowA(vbNullString, Me.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
    Call DrawMenuBar(lFrmHdl)
End Sub

P.D.: El código lo tomé de un post de @JSDJSD me parece recordar.

 

Saludos

[Janlui]

Ok. muchas gracias.

[Antoni]

Nunca he entendido cual es el objetivo de eliminar una funcionalidad para tener que que crear otra que hace exactamente lo mismo.

Jamás he puesto un botón de Cerrar/Abortar/Cancelar en ninguno de mis formularios.