UserForm Abrochado

Que tal Fabián ¡

Con el siguiente evento no podrás evitar que desplacen el UserForm, lo que
si podrás ver es que por más que lo desplacen, vuelve a la ubicación
establecida... siempre permacerá donde tú le indiques.

Private Sub UserForm_Layout()
Me.Move 447, 100
End Sub

<!>
Tec. Inf. Sergio A Campos H

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
<!>


"Fabian" escribió en el mensaje
news:

Alguien conoce algun codigo para que sea imposible mover un UserForm con
el
raton. Gracias.

hola, chicos !

Fabian escribio en el mensaje ...
... codigo para que sea imposible mover un UserForm con el raton.

Sergio A Campos H escribio en el mensaje ...
... con el siguiente evento... por mas que lo desplacen, vuelve a ... donde tu le indiques.
Private Sub UserForm_Layout() [...]

segun la ayuda de excel-vba... el evento 'layout'... 'se produce cuando cambia el tamaño de...' -?-
si la propuesta de Sergio no 'funciona' [porque no se modifica el tamaño], prueba pegando las siguientes lineas...
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

saludos,
hector.

Gracias por los codigos, los dos me son utiles!
Hector, cuando tengas tiempo, ¿podes explicar las lineas que mandaste? Te
juro que busco info y trato de entender pero la neurona no me da respuestas.
Gracias.
Fabian.

"Fabian" escribió en el mensaje news:%

Gracias por los codigos, los dos me son utiles!
Hector, cuando tengas tiempo, ¿podes explicar las lineas que mandaste? Te
juro que busco info y trato de entender pero la neurona no me da respuestas.
Gracias.
Fabian.

Son llamadas a la API de Windows. Aquí puedes ver un pequeño tutorial sobre la materia:

http://www.ciberteca.net/articulos/...win32apis/

En Internet hay bastante información.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Ok. Exelente
Gracias.
"Fernando Arroyo" escribió en el mensaje
news:#
"Fabian" escribió en el mensaje
news:%

Gracias por los codigos, los dos me son utiles!
Hector, cuando tengas tiempo, ¿podes explicar las lineas que mandaste? Te
juro que busco info y trato de entender pero la neurona no me da

respuestas.

Gracias.
Fabian.

Son llamadas a la API de Windows. Aquí puedes ver un pequeño tutorial sobre
la materia:

http://www.ciberteca.net/articulos/...win32apis/

En Internet hay bastante información.
Un saludo.


Fernando Arroyo
MS MVP - Excel