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

hola, Mariano !

Mostrar la cita

... 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:
Mostrar la cita

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?
Mostrar la cita

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

tiempo de dise#o...
Mostrar la cita

-> +/- 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 :-(
Mostrar la cita

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

formulario<-
Mostrar la cita

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
Mostrar la cita

Private Sub UserForm_Initialize()
Quitar Menu(Formulario(vbNullString, Me.Caption), 0), 1, &H400& Or

&H1000&
Mostrar la cita

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

&H1000&
Mostrar la cita

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

&H1000&
Mostrar la cita

End Sub