Barra de titulo de formulario

hola, Desiree !

... eliminar la barra de titulo de los formularios creados en excel con visual basic [...]

no se hasta donde quieres llegar con la desaparicion de la barra de titulo de los useform -?-
te paso una 'avanzada' para que decidas hasta donde te conviene quedarte :))
solo considera las 'salidas' que le vayas a proveer al usuario para 'terminar' con el userform :))

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

1) si SOLO necesitas que el usuario no pueda cerrar el userform...
=> en el modulo de codigo del formulario <Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

2) si quieres 'evitar' que el usuario ande 'paseando' el userform por la pantalla...
=> en el modulo de codigo del formulario <Private Declare Function EnFormulario Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Nombre As String) As Long
Private Declare Function Menu Lib "User32" Alias "GetSystemMenu" ( _
ByVal Ventana As Long, ByVal Revertir As Long) As Long
Private Declare Function Quitar Lib "User32" Alias "RemoveMenu" ( _
ByVal Menu As Long, ByVal Posicion As Long, ByVal Estado As Long) As Long
Private Sub UserForm_Initialize()
Quitar Menu(EnFormulario(vbNullString, Me.Caption), 0), 1, &H400
End Sub

3) si 'efectivamente' deseas quitarle la barra de titulos al formulario...
tendras que hacerle algunos arreglos a las dimensiones del formulario... [p.e.]
-> 'recortar la altura' del formulario [en tiempo de diseño] +/- el alto de la barra de titulo
-> proveerle unos 'bordes personalizados' [efectos especiales]
=> en el modulo de codigo del formulario <Private Declare Function BuscarVentana _
Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Ventana As String) As Long
Private Declare Function ObtenerVentana _
Lib "User32" Alias "GetWindowLongA" ( _
ByVal Ventana As Long, ByVal Indice As Long) As Long
Private Declare Function EstablecerVentana _
Lib "User32" Alias "SetWindowLongA" ( _
ByVal Ventana As Long, ByVal Indice As Long, _
ByVal NuevoEstilo As Long) As Long
Private Declare Function MostrarVentana _
Lib "User32" Alias "ShowWindow" ( _
ByVal Ventana As Long, ByVal Comando As Long) As Long
Private Sub UserForm_Activate()
Dim miFormulario As Long, Estilo As Long
Me.SpecialEffect = fmSpecialEffectSunken
If Val(Application.Version) < 9 _
Then miFormulario = BuscarVentana("ThunderXFrame", Me.Caption) _
Else miFormulario = BuscarVentana("ThunderDFrame", Me.Caption)
Estilo = ObtenerVentana(miFormulario, (-16))
Estilo = Estilo And Not &HC00000
EstablecerVentana miFormulario, (-16), Estilo
MostrarVentana miFormulario, 5
End Sub

Muchas Gracias Héctor por tu respuesta,pero he copiado el codigo que m
pones tal y como esta y me da error, ya que no finalizas las funciones
algo pasa pero no se donde es.
Gracia

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187097124

hola, Desiree !

... he copiado el codigo que me pones tal y como esta y me da error
ya que no finalizas las funciones, algo pasa pero no se donde es.

recien acabo de probar [igual que antes de postear] :))
ahora lo hice copiando 'directamente' desde las respuestas de msusenet
cada una de las propuestas me ha funcionado perfecto :))

podrias comentar donde o que lineas te causan algun error ?

saludos,
hector.

Gracias de nuevo, siento las molestias.
Cuando guardo el documento con tu codigo, es como que no lo reconoce,
me dice que los comentarios solo pueden aparecer despues de end sub
vamos que toma tu codigo como si fuera un comentario.
Y como puedo cambiar los bordes,con la propiedad border style?
Si no, si me dices como quito el boton cerrar, pues a lo mejor lo dej
asi y no damos mas vueltas..

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187097124

hola, Desiree !

Cuando guardo el documento... como que no lo reconoce
... dice que los comentarios solo pueden aparecer despues de end sub
... toma tu codigo como si fuera un comentario.
Y como puedo cambiar los bordes,con la propiedad border style?
Si no, si me dices como quito el boton cerrar, pues a lo mejor lo dejo asi y no damos mas vueltas...

-> si [probablemente] estas copiando en el modulo de codigo del formulario TODAS las 'opciones'...
[solo comentarte que]... se trata de tres opciones diferentes [cada una hace un 'efecto' distinto] :)
y los codigos para cada una se inician en la linea siguiente a la {instruccion} '=> en el modulo...

-> la primer alternativa -1)- puedes 'mantenerla' combinada con las dos siguientes [sus efectos son]...
a) la primera alternativa [solo] evita que el usuario pueda cerrar el formulario con {esc} / {alt}+{F4} / {X}
b) la segunda alternativa [ademas] evita que el usuario puede mover el formulario por la pantalla
c) la tercera alternativa [adicionalmente] 'suprime' la barra de titulo del formulario
[creo que no tendria sentido usarlas todas al mismo tiempo] -?-

-> para cambiar los bordes del formulario [me tome la libertad de que el codigo lo hiciera] :))
ve en el ejemplo de la alternativa c) la linea que dice... ->Me.SpecialEffect = fmSpecialEffectSunken<-

si cualquier duda... comentas?
saludos,
hector.