Evitar el deplazamiento de un UserForm mediante la barra de título

hola, Mariano !

... alguna manera de "desactivar" la posibilidad de que los usuarios
desplazen un UserForm arrastrandolo desde la barra de título con el puntero del mouse?

tendras que 'disminuir' la altura del formulario [en el editor de vba] en tiempo de dise#o...
-> +/- la altura de la barra de titulos que 'vamos a desaparecer' <- :))
no importa si 'ves' que la parte inferior del formulario 'se come' algunos controles :-(
-> despues... copia las siguientes lineas ->en el modulo de codigo del formulario<-

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

Private Declare Function Formulario 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(Formulario(vbNullString, Me.Caption), 0), 1, &H400& Or &H1000&
Quitar Menu(Formulario(vbNullString, Me.Caption), 0), 2, &H400& Or &H1000&
Quitar Menu(Formulario(vbNullString, Me.Caption), 0), 4, &H400& Or &H1000&
End Sub

Hola Héctor

Muchas Gracias!! Cómo de costumbre funcionó todo a la perfección!!
Será hasta pronto.
Saludos!!

Mariano

"Héctor Miguel" escribió en el mensaje
news:

hola, Mariano !

> ... alguna manera de "desactivar" la posibilidad de que los usuarios
> desplazen un UserForm arrastrandolo desde la barra de título con el

puntero del mouse?

tendras que 'disminuir' la altura del formulario [en el editor de vba] en

tiempo de dise#o...

-> +/- la altura de la barra de titulos que 'vamos a desaparecer' <- :))
no importa si 'ves' que la parte inferior del formulario 'se come'

algunos controles :-(

-> despues... copia las siguientes lineas ->en el modulo de codigo del

formulario<-

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

Private Declare Function Formulario 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(Formulario(vbNullString, Me.Caption), 0), 1, &H400& Or

&H1000&

Quitar Menu(Formulario(vbNullString, Me.Caption), 0), 2, &H400& Or

&H1000&

Quitar Menu(Formulario(vbNullString, Me.Caption), 0), 4, &H400& Or

&H1000&

End Sub