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

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

 

Hola JSDJSD , si funciona, muchas gracias

 

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

Editado el el 4 de diciembre3 años por Jose BN
Aclarar uso de archivo

Ok. muchas gracias.

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.

Editado el el 5 de diciembre3 años por Antoni